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PREFACE 



INTRODUCTION 

This manual describes the program library mainte- 
nance utility Modify. Modify is part of the Network 
Operating System <NOS) for CONTROL DATA® 
CYBER 170 Series. Models 171. 172, 173, 174, 
and 175 Computer Systems; CDC®CYBER 70 Series, 
Models 71. 72. 73. and 74 Computer Systems; and 
CDC® CYBER 6000 Series Computer Systems, 
Modify is used to maintain and update source files 
that are on libraries in a compressed and symbolic 
format. 

iiic uiiivmuCiiuii ucauuicS icaiiuco ul lVLUUliy ailu 

presents an overview of its operation. The remain- 
ing sections describe the directives that the user 
supplies to control library creation and editing. 
Because the advantages of Modify are best utilized 
by a programmer with a large volume of source 
program text or symbolic data, the manual is writ- 
ten for the experienced NOS applications or systems 
programmer. Wherever possible. Modify usage is 
illustrated through examples. 

Appendix C describes the NOS utility OPLEDrT. 
which provides the capability to delete and recon- 
struct previous modification sets. 



RELATED PUBLICATIONS 

For further information concerning Modify and NOS, 
consult the following manuals. 



Control Data Publication 

NOS Modify Instant 

NOS Reference Manual, 
Volume 1 

NOS Applications 

Programmer's Instant 

NOS Time-Sharing User's 
Reference Manual 

NOS Terminal User's 
Instant 



Publication Number 
60450200 

60435400 

ouwouuu 

60435500 

60435800 



DISCLAIMER 

This product is intended for use only as described 
in this document. Control Data cannot be respon- 
sible for the proper functioning' of undescribed 
features or parameters. 
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INTRODUCTION 



Modify is used by the programmer to maintain text 
(large programs or data files) in a compressed form 
allowing him to easily change individual lines within 
the text. Modify transforms text into a specially 
formatted file whose structure enables Modify to 
make requested changes (or rescind previously 
made changes) efficiently. Such a file, a program 
library file, is in program library or Modify for- 
mat. Once this file has been established, the user 
need only specify to Modify the changes he is making 
to the text. Modify then performs the requested 
changes and produces several files of different types 
which reflect the changes. One of these files is the 
compile file, a text file acceptable to language 
processors (for example, FORTRAN, BASIC, or 
COMPASS). This file can also be directed to an 
output device for listing or punching. 



MODIFY ORGANIZATION 

Modify can be organized into three main functional 
elements : 

• Files used to initialize the program library - 
these contain the program text from which 
Modify establishes the program library, the 
body of text upon which modification direc - 
tives act to effect user-requested changes 

to the text. 

• Directives —these are user -specified in- 
structions to Modify which establish the 
program library, produce changes in the 
text, perform various utility functions upon 
files used by Modify, and /or alter certain 
operational characteristics of Modify. 

• Output files —these are produced by Modify 
after it performs the instructions specified 
by directives. Three of these files are up- 
dated versions (in different formats) of the 
original text; the fourth is a report of 
actions taken during Modify' s execution. 

Refer to figure 1-1 during the following discussion 
of the elements of Modify organization. 



FILES USED TO INITIALIZE 
PROGRAM LIBRARY 



These files contain program text in one of two forms: 
source format or program library format. Files 
used to initialize the program library may contain 
several program and/or subroutine decks, kept as 
separate logical records on the file. The user can 
designate a deck containing frequently used lines 
(such as a group of FORTRAN COMMON statements) 
as a common deck. The user can then direct Modify 



to insert the text of a common deck within the pro- 
gram text wherever a CALL directive appears with- 
in the program text (refer to section 6 for further 
information on the CALL directive). 

Source -format files are coded text files, typically 
prepared either as a card deck or through the text- 
file creation facilities of the NOS time -sharing 
subsystem (refer to the NOS Time -Sharing User's 
Reference Manual). All program library files begin 
as source -format files, which Modify processes to 
create program library files. 

A file in program library format is defined as fol- 
lows. 

• It is compressed (Modify has replaced 
three or more consecutive blanks within a 
line with special codes). 

• Each line of text has been assigned, by 
Modify, a sequence number and name, 
thereby allowing the user to refer to individ- 
ual lines when he wishes to change the 
text on subsequent Modify runs. 

• It contains a directory, built by Modify, 
which serves as an index of the decks on 
the program library file. 



DIRECTIVES 

The user can control Modify execution by specifying 
directives to Modify. These directives (compile 
file directives excepted) form a logical record on a 
file which the user specifies on the Modify control 
statement. If Modify is being executed from a time- 
sharing terminal, Modify prompts the user for di- 
rectives, unless he has specified otherwise on the 
Modify control statement. 

The user may direct Modify to begin reading direc- 
tives from an alternate file and position this file 
(or other files local to his job) with file manipulation 
directives. Certain files (refer to section 5) cannot 
be operated on by these directives. 

Initialization directives declare which files Modify 
is to use to initialize the program library. They 
indicate whether the file is in source format (thereby 
causing Modify to make a copy of it in program li- 
brary format) or is in program library format. 

Directives which cause text to be changed fall into 
two groups: modification directives and compile 
file directives. 

Modification directives specify line -by -line altera- 
tions (insertion; deletion or deactivation; and reacti- 
vation) for Modify to make. They also specify 
which decks Modify should copy to its output files 
with the specified modifications included. 
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Figure 1-1. Simplified Modify Organization 



Compile file directives are part of the text on the 
program library; thus, compile file directives were 
either on a file used to initialize the program library, 
or were inserted by modification directives. An 
example of a compile file directive is the CALL 
directive. 

Modify includes many other directives providing 
extended features. These primarily affect the op- 
erating characteristics of Modify which are described 
in section 7. 



OUTPUT FILES 

Modify produces several files as output, all of which 
are optional. The user specifies these files through 
options on the Modify control statement. 



The compile file is a text file with user-specified 
modifications incorporated into it. It may be used as 
input to a language processor, directed to an output 
device such as a printer or card punch, or used as 
data for an applications program. 

The new program library file contains the same up- 
dated text as the compile file, only in program li- 
brary format, ±nu5, iviOvaixy can process luls iLic 
directly on subsequent Modify runs. 

Modify produces a list of text incorporated into the 
program library, details the status of the program 
library and the other files output by Modify, and 
notes errors and other significant events occurring 
during Modify execution. 

The source -text output file contains updated text 
similar to that of the compile file. However, 
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compile file directives on the program library have 
not been removed or acted upon by Modify. 



MODIFY EXECUTION 

Modify begins execution as a result of the operating 
system interpreting a Modify control statement. 
Modify execution then progresses in three phases: 

• Initialize program library 

• Read modification directives 

• Incorporate changes/write output files 



INITIALIZE PROGRAM LIBRARY 

During this phase, Modify reads initialization di- 
rectives (which must precede modification direc- 
tives) from the directives file to prepare the program 
library. The first file to be included in the program li- 
brary is the file declared on the Modify control 
statement (P parameter); refer to section 8. Other 
files declared by initialization directives are logi- 
cally merged with this file to form the program 
library. If the initialization directive specifies 
that a file is in source -text format, Modify converts 
it to a file in program library format before merging 
it with the program library. 

The initialization phase ends when Modify encounters 
the first modification directive. File manipulation 
directives do not terminate the initialization phase. 



READ MODIFICATION DIRECTIVES 



During the second phase. Modify reads the remaining 
directives on the directives file and stores any new 
text for insertion during the final phase. The time- 
sharing user is prompted for directives by Modify 

at lltC tfiiT*TYl ITlol Tki Vt'A+rtll nonrra tVtn flln a a«4-m t M i .* t* 

the directives is specified on the Modify control 
statement. This defaults to the job input file. An 
alternate directives file may be specified by the ap- 
propriate file manipulation directive (refer to 
section 5). 



INCORPORATE CHANGES/WRITE 
OUTPUT FILES 



During the final phase, Modify performs the re- 
quested changes on a deck-by -deck basis, incorpor- 
ating them into the output files requested by the 
Modify control statement. Each inserted line is 
assigned a modification name, specified by a modi- 
fication directive (refer to section 4), and a se- 
quence number generated by Modify. These are 
used in later Modify runs to make further changes 
to the text. All lines having the same modification 
name comprise a modification set. 



This phase can be initiated either by Modify inter- 
preting an EDIT directive (refer to section 4) on 
the directive file, or by the presence of a Modify 
control statement option specifying that this phase 
should be initiated by Modify after it exhausts the 
directive file (refer to section 8). 



FEATURES 

Features of Modify include: 



Formatting of text files to facilitate line- 
by-line modification. 

Insertion, deletion, and restoration of 
previously deleted lines according to line 
sequence numbers. 

Facilities for rescinding one or more 
groups of changes (modification sets) pre- 
viously applied to text, thereby preserving 
original appearance of text. 

Replacement of often-used groups of lines 
by one -line calls for their insertion. 

Facilities for limiting range of modifications 
to specified decks. 

Generation of a file in text format suitable 
for input to processors such as compilers 
and assemblers. 

Execution from either batch-origin or time- 
sharing jobs. 

Processing of directives from an alternate 
File. 

Comprehensive statistical output noting any 
changes effected during the run and pre- 
senting the status of the program library. 

Support of both 63- and 64 -character sets. 



MODIFY EXAMPLES 

Examples in this manual are for illustrative purposes 
only. These examples are neither the most efficient 
nor necessarily recommended methods of using the 
Modify directives. 

Figure 1-2 details a job submitted to local or remote 
batch and figure 1-3 illustrates the same job entered 
from a time -sharing terminal. The user need not 
be concerned with the meaning of directives or of 
parameters on the Modify control statement at this 
point. Instead, he should compare the structure of 
the two jobs. 

Subsequent examples in this manual (with the excep- 
tion of section 3 and section 10, Batch Job Examples) 
depict only jobs entered from a time -sharing 
terminal. 

The examples pertaining to a group of directives 
immediately follow the discussion of those direc- 
tives. Some of the files created and modified in 
an exampLe have been retained and used in the 
succeeding example. 
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JOBMOD._ 

USER (UsekNGM ,rASSwKD, FAMILY) 

CHARGE (CHARNUM ,PROJNUM) 

GET (MAINP) 

COPYSBF( MAINP) 

MODIFY (P=0,F,N) 

SAVE (NPL=MAINPL) 

— EOR — 

•REWIND MAINPl 

♦CREATE MAINPJ 

— EOI — -. 



-Input directives for Modify statement. 

(End-of -information is 6/7/8/9 multiple punch 
in column 1. 



Figure 1-2. Modify Execution from Batch 



batch ■*- 



-After logging in, user requests batch subsystem. 



$RFL,0. 

/old, mainp 

/lnh,r 

DECK1 

*** MAIN PROGRAM 

PROGRAM MAIN (OUTPUT) 

PRINT*, "BEGIN MAIN PROGRAM." 

CALL SUBl 

PRINT*, "END MAIN PROGRAM." 

STOP 

END 
— EOR — 
DECK 3 

*** EMPTY DECK 
— EOR — 

/mod if y ,p=0 , f ,n , 1=0 
? *rewind mainp) 
? *create mainp/ **~ 



MODIFICATION COMPLETE, 
/save ,npl=mainpl 



(User specifies (1=0) indicating that he does not wish 
~{to receive Modify output. 

(Input directives are requested and entered 
immediately following Modify statement. Null 
input line (carriage return only) terminates 
input. 
_ J Program notifies user that it has completed 
1 modification. 



Figure 1-3. Modify Execution from Time -Sharing Terminal 



ASCII MODE CONSIDERATIONS 

Several problems may arise when using Modify from 
a time -sharing job while the terminal is in full ASCII 
character set mode. Refer to appendix A of the NOS 
Reference Manual, voiume 1, for a description of 
ASCII character sets. 

Directives entered interactively from the terminal, 
or those in an alternate directive input file, must 
not contain ASCII characters with escape codes; 
that is, directives must be entered in all uppercase 
characters. Modify does not recognize lowercase 
directives that contain escape codes. 



When creating a program library, several precau- 
tions should be taken. While a source file can con- 
tain full ASCII characters, all deck names and 
compile file directives must be in full uppercase (no 
escape codes). Care should also be taken when 
entering source lines in full ASCII mode. Since each 
character may actually occupy 12 bits (escape code 
and character), what appears to be a line width of 
75 characters, for example, may actually be 150 
characters. Modify does not allow line widths 
greater than 100 6-bit characters. 
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DIRECTIVE FORMAT 



Directives allow the user to create libraries and 
extensively control and direct the correction and 
modification process. File initialization directives 
identify old program libraries and source decks to 
be placed on the new program library. Modification 
directives identify the text to be inserted, set pa- 
rameters of the modification process, and inform 
Modify of insertions, deletions, and other correc- 
tions. File manipulation directives allow user 
control of the input files. Compile file directives 
can be in source decks originally or can be inserted 
during a Modify run. These directives are manipu- 
lated much like source lines during the creation, 
updating, and correction phases but are recognized 
when the compile file is written. 

A directive has the following format. 

*dirname p,» p„, . . . , p 



* The prefix character is in 

column 1. It is initially de- 
fined by Modify as an asterisk, 
but may be changed with 
PREFIX and PREFIXC direc- 
tives. In this manual, the 
asterisk is used as the prefix 
character. 

dirname The directive name starts in 
column 2. It is terminated by 
one or more blanks or a sepa- 
rator (for example, a comma). 

P^ Optional directive parameters. 

Numeric parameters are deci- 
mal. 

The directive name and parameters are separated 
by any character that has a display code value of 
55g or greater; that is (assuming 64 -character set), 
a character other than: 



Some directives require specific separators. No 
embedded blanks are permitted within a parameter. 
However, any number of blanks can be between the 
directive name and the first parameter or between 
two parameters, provided the entire directive does 
not exceed 72 columns. 



LINE IDENTIFICATION 

The modification directives DELETE, INSERT, and 
RESTORE, and the file manipulation READPL direc- 
tive require line identifiers. These identifiers can 
be in either the complete or abbreviated form. 

The complete format of a line identifier is: 

modname. number 

modname. 1- to 7-character name of a 

modification set or deck. A 
period terminates the modifi- 
cation name. 

number Decimal ordinal (1 to 262143) 

of the line within the correc- 
tion set or deck. Any char- 
acter other than through 9 
terminates the sequence 
number. 

The abbreviated form of a line identifier is: 
number 



When only the number is used for line identification 
(modification name is omitted). Modify uses the name 
from the MODNAME directive or the most recent 
DECK directive. 



: A-Z 0-9 + - * / ( ) $ 
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INITIALIZATION DIRECTIVES 



Modify initialization directives are placed on the 
directive file and precede all directives other than 
file manipulation directives. They are: 

CREATE Converts source decks to 

program library format for 
modification. 

OPLFILE Declares additional program 

library files as input. 

COPY Copies one or more records 

from named file to old program 
library. 

COPYPL Copies one or more records 

from named file to an internal 
scratch file which is logically 
merged with program library. 

WIDTH Defines the number of columns 

preceding the sequencing in- 
formation on the compile and 
source files; can occur any- 
where in directives file. 

NOSEQ Specifies no sequence infor- 

mation on compile file. 



CREATE, OPLFILE, COPY, and COPYPL are il- 
legal after the first use of modification directives. 
WIDTH and NOSEQ can be processed as compile 
file directives. 



When a second deck of the same name is introduced 
during initialization, the second deck takes prece- 
dence, tn directory list output, the name of a re- 
placed deck is enclosed in parentheses. 

PREPARING THE SOURCE FILE 

Before Modify can create a program library, the 
user must prepare the source file by assigning a 
deck name to each record of the source file and by 
identifying those decks that are to be common decks. 
The deck name must be the first line of the source 
deck. A 1- to 7-character deck name begins in 
column 1. Legal characters are: 



A through Z through 9 



/ ()$ 



The second line of the source deck can identify the 
deck as common. To do so, it must contain the 
word COMMON in columns 1 through 6. An end-of- 
record terminates the deck. A set of decks is ter- 
minated by an end -of -file (6/7/9 multiple punch in 
column 1 for batch origin jobs) or end-of-information. 

Figure 3-1 illustrates a typical Modify source deck. 

Usually a deckname (optionally followed by a 
COMMON) precedes each program or subprogram. 
However, more than one subprogram may be in- 
cluded in a deck as is indicated in figure 3-2. A 
user might group two programs if modification of 
one requires reassembly or recompilation of both 
programs. 



DECK1 <- 



Name of deck 



PROGRAM X 
*CALL DECK2 



END 
-EOR- < 



DECK2 *- 
COMMON ■*- 



COMMON/A/A 
COMMON/Z/Z 



-EOI- «s- 



Source deck 

• End-of-record terminates deck 

• Name of deck 
Declares deck as common 

Source deck 

•End-of-information terminates final deck 



Figure 3-1. Modify Source Deck 
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FIRST 



-EOR- 



IDENT 



END 
IDENT 



END 



FIRST 



SECOND 



Program one 



Program two 



First deck 



FDATA 
COMMON 



DATA 
DATA 
DATA 



-EOI- 









Second deck 



Figure 3-2. Deck with Several Programs 



CREATE - CREATE PROGRAM LIBRARY 



When Modify encounters this directive, it writes 
the contents of the named file from its current 
position until it encounters an end-of-file onto a 
scratch file in program library format with a di- 
rectory. CREATE provides a means of initially 
creating a program library for subsequent modifi- 
cation, for adding decks to the program library, or 
for replacing decks on the program library, f 



Format : 



Format: 



I'CREATE file 

file Name of file containing one or more 
source decks. A format error oc- 
curs if the name of the file is 
omitted from the directive. This 
file must be local to the user's job. 



OPLFILE - DECLARE ADDITIONAL 
OPL FILES 

The OPLFILE directive specifies additional files, 
already in program library format, that Modify log- 
ically merges with any existing program library. 
The existing library is made up of the old program 

(P parameter) and /or other program library files 
established internally by CREATE or COPYPL. t 



The total number of files declared by OPLFILE 
directives cannot exceed 20 files. Additional files 
are ignored with the message: 

TOO MANY OPL FILES. 



*OPLFILE file j, file 2 , .... file n 

file. Names of one or more files in pro- 
1 gram library format to be merged 
logically with the existing program 
library. 



COPYPL - COPY PROGRAM 
LIBRARY TO SCRATCH 



The COPYPL directive copies records (decks) al- 
ready in program library format to an internal 
scratch file which Modify logically merges with any 
existing program library. | Modify builds a di- 
rectory for this file as it is copied, ignoring any 
existing directory on the file from which the copy is 
made. All or part of the file can be copied. The 
file may reside on either mass storage or magnetic 
tape. Modify ignores all records on the file which 
are not in program library format. 

Format: 

*COPYPL file, deckname 

file Name of file containing decks 

in program library format, 
with or without director v and 
with or without other records in 
nonprogram library format. 

deckname Optional; name of last deck 

(record) to be copied. If deck- 
name is omitted from directive, 
or is not found on file. Modify 
copies all decks from the file 
starting at the current file 
position. 



■f If the resulting program library contains two or more decks having the same name, the last one introduced 
to Modify takes precedence; that is, the previous deck is logically replaced. 
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COPY - COPY PROGRAM 
LIBRARY TO OPL 

The COPY directive performs the same functions 
as the COPYPL directive, with the following differ- 
ences: 

• The records (decks) are copied to the old 
program library file declared on Modify 
control statement (P parameter). If P=0 
is specified on the Modify control state- 
ment, the use of the COPY directive is 
not allowed. 

• Modify performs an EVICT on the old pro- 
gram library file before the copy takes 
place. Hence, this file (if it already exists) 
should not contain any useful information. 
See the NOS Reference Manual, volume 1, 
for a description of EVICT. 

• COPY can be preceded only by file manip- 
ulation directives. 

• Only one COPY directive is allowed for 
each Modify execution. 

COPY is useful when copying all or part of a pro- 
gram library residing on magnetic tape to a mass 
storage device, since the resulting program library 
file may be saved as a permanent file without having 
Modify create a new program library. See the NOS 
Reference Manual, volume 1, for a description of 
permanent file control statements. 

Format : 

*COPY file.deckname 

file Name of file containing decks in 

program library format, with 
or without directory, and with 
or without other records in 
nonprogram library format. 

deckname Optional; name of last deck 

(record) to be copied. If deck- 
•Airective, 



or is not found on file. Modify 
copies all decks from the file, 
starting at the current file 
position. 



WIDTH - SET LINE WIDTH ON 
COMPILE FILE 

The WIDTH directive allows the user to set the 
width of lines prior to the modify program library 
and write compile phase. The last (or only) WIDTH 
directive encountered on the directives file is used 
during the compile phase until a compile file WIDTH 
is encountered. If text is being inserted, the WIDTH 
directive is left in the text stream and is later proc- 
essed as a compile file directive. WIDTH can occur 
anywhere in the directive file. 



Format: 



*WIDTH n 



Number of columns preceding se- 
quence information on compile file 
and source file. Modify allows a 
maximum of 100 columns. During 
initialization of Modify, width is 
preset to 72. 



NOSEQ - NO SEQUENCE INFORMATION 



The NOSEQ directive allows the user to set the no 
sequence flag prior to the write compile phase. 
When no sequencing is requested. Modify does not 
include sequence information on the compile file. 
A SEQ" directive encountered during the write com- 
pile phase clears the no sequence flag. If text is 
being inserted, the NOSEQ directive is inserted into 
the text stream and processed as a compile file 
directive. 

FORMAT: 
*NOSEQ 



INITIALIZATION DIRECTIVES EXAMPLES 



Figures 3-3 and 3-4 illustrate the creation of pro- 
gram libraries and the use of several initialization 
directives. Figure 3-3 is a detailed terminal ses- 
sion; figure 3-4 represents the same job formatted 
for batch input. The user can submit the batch or- 
igin job to obtain and examine output produced by 
Modify and FORTRAN 
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batch, 45000 <- 
$RFL, 45000. 



/lnh,r 

DECKl 

*** MAIN PROGRAM 

PROGRAM MAIN (OUTPUT) 

PRINT*, "BEGIN MAIN PROGRAM."* 

CALL SUB1 

PRINT*, "END MAIN PROGRAM." 

STOP 

END 
— EOR — 
DECK3 

*** EMPTY DECK 
— EOR — 

/modify, p=0, 1=0, f ,n=mainpl ,c=0 
? "create mainp 
? 

MODIFICATION COMPLETE, 
/catalog ,mainpl , r 

CATALOG OF MAINPL 



[User selects batch subsystem, requesting 
| 45000 words of CM. 



Listing of source file, showing end-of-record 
marks, to be used to create program library. 
Notice required deck names. 



I Modify statement to create program library 
with name MAINPL. MAINPL is the result 
of converting the source text file MAINP to 
program library format. 



REC NAME 



TYPE 



FILE 
LENGTH 



1 
CKSUM 



DATE 



DECKl 
DECK3 
OPL 

* EOF * 




CATALOG COMPLETE. 



/save.mainpl 

/get, subl 

/copycf ,subl 

DECK2 

*** SUBROUTINE 1 

SUBROUTINE SUB1 

PRINT*, "ENTER SUBROUTINE 1."*- 

CALL SUB2 

PRINT*, "EXIT SUBROUTINE 1." 

RETURN 

END 
END OF INFORMATION ENCOUNTERED, 
/rewind, subl 
$ REWIND, SUB1. 

/modify, p«0,l»0,f ,n«altpll,c=B « 

7 "create subl 
? 

MODIFICATION COMPLETE, 
/catalog, altpll,r 



4476 76/01/22. 
1725 76/01/22. 
1310 76/01/22. 

The catalog utility is a convenient means of 
determining the decks and their types that 
were written on the program library. Refer 
to the NOS Reference Manual, volume 1, for 
information on the CATALOG control state- 
ment. 



/catalog , al tol 2 , r 

CATALOG OF ALTPL2 FILE 1 

REC NAME TYPE LENGTH CKSUM 



Another source deck that the user wishes to 
maintain on a separate program library. 



Modify statement to create program library 
ALTPL1. 



REC 


CATALOG 
NAME 


OF ALTPL1 
TYPE 


FILE 
LENGTH 


1 
CKSUM 


DATE 


1 
2 


DECK 2 
OPL 


OPL (64) 
OPLD 


30 
3 


5013 
2117 


76/01/22 
76/01/22 


3 


* EOF * 


SUM - 


33 






1 

CATALOG COMPLETE. 
/get,altpl2 * 








J User o 



User obtains alternate program library that 
he had created at an earlier session. 



DATE 



1 DECK3 

2 OPL 

3 * EOF * 



OPL (64) 
OPLD 

SUM » 



25 
3 

30 



0100 
2517 



76/01/21. 
76/01/21. 



Figure 3-3. Initialization Directive Examples (Sheet 1 of 2) 
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CATALOG COMPLETE 
/rename, opl=mainpl <. 
$RENAME,OPL=MAINPL. 
/modify, f ,l=0,n=mainpl 
? *oplfile altpll 
? *copypl altpl2,deck3 
? 

MODIFICATION COMPLETE, 
/catalog ,mainpl ,r 

CATALOG OF MAINPL 
REC NAME TYPE 




1 DECK1 

2 DECK3 

3 DECK2 

4 OPL 



OPL (64) 

OPL (64) 

OPL (64) 
OPLD 



FILE 
LENGTH 

30 

25 

30 

7 



Program library MAINPL is renamed OPL. 
In this manner, the P parameter is not needed 
on the Modify statement. 

Modify run to merge OPL with program library 
ALTPL1 and then use ALTPL2 to replace deck 
DECK3 on OPL. The compile output of MAlNPLl 
is written on the default file COMPILE. 1 



DATE 



4476 76/01/22. 

0100 76/01/21. 

5013 76/01/22. 

5011 76/01/22. 



* EOF * 



SUM = 



114 



CATALOG COMPLETE, 
/replace, tnalnpl 
/copvcf ,comoiie 
*** MAIN PROGRAM 

PROGRAM MAIN (OUTPUT) 

PRINT*, "BEGIN MAIN PROGRAM." 

CALL SUB1 

PRINT*, "END MAIN PROGRAM." 

STOP 

END 
*** SUBROUTINE 2 

SUBROUTINE SUB2 

PRINT*, "ENTER SUBROUTINE 2." 

PRINT*, "EXIT SUBROUTINE 2." 

RETURN 

END 
*** SUBROUTINE 1 

SUBROUTINE SUB1 

PRINT*, "ENTER SUBROUTINE 1." 

CALL SUB2 

PRINT*, "EXIT SUBROUTINE 1." 

RETURN 

END 
END OF INFORMATION ENCOUNTERED, 
/rewind , compile 
$REWIND, COMPILE. 
/ftn,i=compile,l=0 *- 





DECK1 


1 




DECKl 


2 




DECK1 


3 




DECKl 


4 




DECKl 


5 




DECKl 


6 




DECKl 


7 




DECK3 


1 


Listing of compile file 


DECK3 


2 


created by Modify. 


DECK3 


3 


Notice sequencing 


DECK3 


4 


information . 


DECK3 


5 




DECK3 


6 




DECK2 


1 




DECK2 


2 




DECK2 


3 




DECK2 


4 




DECK2 


5 




DECK 2 


6 




DECK2 


7 



,145 CP SECONDS COMPILATION TIME 



| Compile file is used as input to FORTRAN 
"I Extended compiler. 



BEGIN MAIN PROGRAM. 
ENTER SUBROUTINE 1. 
ENTER SUBROUTINE 2. 
EXIT SUBROUTINE 2.*- 
EXIT SUBROUTINE 1. 
END MAIN PROGRAM. 



-Execution of FORTRAN program. 



.006 CP SECONDS EXECUTION TIME 



Figure 3-3. Initialization Directive Examples (Sheet 2 of 2) 
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JOBl. 

USERttJSERNUM. PASSWRD.- FAMILY) 

CHARGE(CHARNUM, PRO JNUM) 

/~\T T\/THT A TT^TT!l\ 

COPYSBF(MAINP) 

MODIFY(P=0, F, N=MAINPL, C=0) 

CATALOG(MAINPL, R ) 

SAVE(MAINPL) 

GET(SUBl) 

COPYSBF(SUBl) 

REWIND(SUBl) 

MODIFY(P=0, F, N=ALTPL1, C=0) 

CATALOG(ALTFLl, R) 

GET(ALTPL2) 

CATALOG (ALTPL2.R) 

RENAME(OPL=MAINPL) 

MODIFY(F, N=MAINPL) 

CATALOG(MAINPL, R) 

REPLACE(MAINPL) 

COPYSBF(COMPILE) 

REWIND(COMPILE) 

FTN(I=COMPILE) 

LGO. 

-EOR- 

*CREATE MAINP 

-EOR- 

*CREATE SUB1 

-EOR- 

*OPLFILE ALTPL1 

*COPYPL ALTPL2, DECK3 

-EOI- 



Figure 3-4. Batch Job Creating Program Libraries 
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MODIFICATION DIRECTIVES 



Modification directives and their accompanying 
insertion lines are placed on the directives file 
after the last initialization directive. The first 
occurrence of a modification directive terminates 
the initialization phase. 

The folio-wing modification directives assign a 
modification name to the corrections being made, 
identify the deck being modified, and give the 
modification set name to be used when the short 
form of the line identifiers is used. 

IDENT Specifies modification name 

tO »-»e assignee to new modifi- 
cation set. 

DECK Identifies deck to be altered. 

MODNAME Identifies modification set 

within deck to be modified 
when short form of line iden- 
tifier is used and the modifi- 
cation name is different from 
that used in the last IDENT or 
MODNAME directive. 

The following modification directives are used for 
inserting and deleting lines. 

DELETE or D Deactivates lines and optionally 
inserts lines in their place. 

RESTORE Reactivates lines and optionally 

inserts text after them. 

INSERT or I Inserts lines after specified 

line. 

These directives indicate to Modify that: 

• New lines are to be inserted into the deck 
and sequenced according to the correct 



• Old lines are to be deleted. 

While inserting, Modify interprets file manipulation 
directives (for example, READPL changes the 
source of insertion lines but does not terminate in- 
sertion). Insertion terminates when Modify next 
encounters another modification directive or end- 
of-record. 

Insertion lines can include compile file directives. 
These directives are not interpreted but are in- 
serted as if they were text; the prefix character 
written on the program library is that specified on 
the directive. 

Other directives described in this section include: 

YANK Deactivate modification set. 

UNYANK Reactivate modification set. 

PUR DECK Remove all lines in a deck. 



IGNORE 



EDIT 



Ignore subsequent modifica- 
tions to a named deck. 

Modify and write named deck 
to files specified on Modify 
control statement. 



IDENT - IDENTIFY NEW 
MODIFICATION SET 

The IDENT directive assigns a name to a modifica- 
tion set. Modify does not require any IDENT direc- 
tive; however, this practice is discouraged. If the 
directives file does not contain an IDENT directive, 
the system uses ******* as the modname. This 
default name should not be used when a new program 
library is made. The user can use one IDENT for 
several decks or can use several IDENT directives 
for one deck. There is no restriction on the place- 
ment of IDENT within the modification directives 
input file. 

Format: 

*IDENT modname 

modname 1- to 7 -character modification 
name to be assigned to this 
modification set. This name 
causes a new entry in the 
modification table for each deck 
for which the modification set 
contains a DECK directive until 
the next IDENT. Each line 
inserted by this set, and each 
line for which the status is 
changed, receive a modification 
history byte that indexes this 
modname. 

Normally, sequencing of new 
lines begins with one for each 
deck using the modification 
name. However, when the 
UPDATE directive is used, 
sequence numbers continue 
from deck to deck. 

Omitting modname causes a 
format error. If modname 
duplicates a name previously 
used for modifying a deck, 
Modify generates the message 

DUPLICATE MODIFIER NAME. 

A duplicate modname or en- 
countering modifications that 
refer to this modification name 
prior to this *IDENT modname 
cause a fatal error accompanied 
by the message MOD(S) TO MOD 
BEFORE THIS IDENT CARD. 
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DECK - IDENTIFY DECK TO BE MODIFIED 



The DECK directive identifies the name of the deck 
to which subsequent modifications apply. 



Format : 



-DECK deckname 
deckname 



Name of deck for which 
modifications following this 
line apply. The modifications 
for this deck terminate with 
the next DECK directive. A 
DECK directive is required 
for each deck being modified. 

If the deckname is not found, 
Modify flags the error with 
the message 

UNKNOWN DECK. 

Omitting the deckname causes 
a format error. 



The next modification directive (or EOR) terminates 
insertion. ^Xi.6 manipulation directives are intei'" 
preted and may change the source of insertion lines 
but do not terminate insertion and are not inserted 
into the deck. Insertion lines can include compile 
file directives. 

A deactivated line remains on the library and retains 
its sequencing, but is not included in compile decks 
or source decks. 



Formats: 



*DELETE c 
*DELETE cj, Cj 



or 
or 



*D c 

*Dc, 



,c. 



C 1' C 2 



Line identifier for single line 
to be deleted. 

Line identifiers of first and last 
lines in sequence of lines to be 
deleted. Cj must occur before 
C2 on the library. Any lines in 
the sequence that are already in 
active are not affected by the 
DELETE. 



MODNAME - IDENTIFY MODIFICATION 
SET TO BE MODIFIED 

By using the MODNAME directive, the user indicates 
that subsequent line identifiers for which a modifica- 
tion name is omitted apply to modification set 
modname previously applied to the deck. Subsequent 
directives need only the sequence number for the 
modification set. The system assumes that the line 
is in set modname of the deck being modified. 

A MODNAME directive is effective only to the next 
deck or MODNAME directive. The hierarchy for 
line identifiers is such that if the MODNAME direc- 
tive is used and the user wishes to return to use of 
the deckname as the assumed line identifier, he 
must restore the deckname by use of another 
MODNAME directive or use the long form of the 
line identifier, specifying the deck name. A 
MODNAME directive does not terminate an inser- 
tion if it is encountered in text being inserted. 

Format: 

*MODNAME modname 

modname Name of modification set pre- 
viously applied to the deck. 
A line identifier that does not 
specify a modname is assumed 
lO app±y lO tiiis iXiOuLi.ication 
set. The modname remains 
in effect until another 
MODNAME or DECK direc- 
tive is encountered. 



DELETE - DELETE LINES 

With the DELETE or D directive, the user deacti- 
vates a line or block of lines and optionally replaces 
it with insertion lines following the DELETE direc- 
tive. 



RESTORE - REACTIVATE LINES 

With the RESTORE directive, a user reactivates a 
line or block of lines previously deactivated through 
a delete or yank and optionally inserts additional 
lines after the restored line or block of lines. The 
lines to be inserted immediately follow the RESTORE 
directive. The next modification directive (or EOR) 
terminates insertion. File manipulation directives 
are interpreted (and may change the source of in- 
sertion lines) but do not terminate insertion. They 
are not inserted into the deck. Insertion lines can 
include compile file directives. 

Formats: 

^RESTORE c 
-RESTORE c,, c„ 



C 1 ,C 2 



Line identifier of single line to 
be restored. 

Line identifiers of first and last 
lines in sequence of lines to be 
restored. Any lines in the se- 
quence that are already active 
are not affected by the RESTORE. 
ci must occur before C2 on the 
library. 



INSERT - INSERT LINES 

To insert new lines in the program library, use the 
INSERT directive. The line to be inserted immedi- 
ately follows the INSERT or I directive on the direc- 
tives file. The next modification directive (or EOR) 
terminates insertion. File manipulation directives 
are interpreted (and may change the source for in- 
sertion lines) but do not terminate insertion. They 
are not inserted into the deck. Insertion lines can 
include compile file directives. 
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Formats : 

*INSERT c 
c 



or 



*I c 



Identifies line after which 
new lines will be inserted. 



YANK - REMOVE EFFECTS OF 
MODIFICATION SET 

The YANK directive is used to deactivate a modifi- 
cation set. Modify searches the edited decks for 
all lines affected by the named modification set. 
If a line was activated by the modification set. 
Modify deactivates it. If a line was deactivated by 
the modification set. Modify reactivates it. Thus, 
Modify generates a new modification history byte 
for every line that changed status as a result of the 
YANK and effectively restores the edited decks to 
the status they had prior to modification modname 
or all modifications subsequent to modname. 

For the first format, only the one modification set 
is yanked. For the second format. Modify yanks all 
modification sets applied after modname, provided 
modname appears on the edited decks. YANK or 
UNYANK directives contained in the yanked modifi- 
cation set are not rescinded. 

YANK affects only those decks that are edited 
through the EDIT directive or the F or U options 
on the Modify control statement. In this way, the 
YANK directive can be selective. 



Formats : 



"YANK modname 
"YANK modname, * 

modname Name of modification set pre- 
viously applied to decks in the 
library. Omitting modname 
produces a format error. 
If Modify fails to find the 
mouname m tue niouiiication 
table for the library, it issues 
an error. 



UNYANK - RESCIND ONE OR MORE 
YANK DIRECTIVES 

With the UNYANK directive, the user can rescind 
previous YANK directives. For the first format, 
only the one modification set is rescinded. For the 
second format. Modify rescinds all of the yanked 
modification sets, starting with modname, provided 
modname appears on the edited decks. 



Formats: 

*UNYANK modname 
*UNYANK modname, * 



modname 



Name of only modification set 
to be rescinded or name of 



first of two or more modifi- 
cation sets to be rescinded 
for the library. Omitting 
modname results in a format 
error. 

PURDECK - PURGE DECK 

A PURDECK directive causes the permanent removal 
of a deck or group of decks from the program li- 
brary. Every line in a deck is purged, regardless 
of the modification set it belongs to. A deck name 
purged as a result of PURDECK can be reused as 
either a deck name or a modification name. 

A PURDECK directive can be any place in the direc- 
tives input. It terminates any previous correction 
set. Therefore, INSERT, DELETE, and RESTORE 
cannot follow a PURDECK directive but must come 
after an IDENT directive. Purging cannot be re- 
scinded. 

Format one: 

-"PURDECK dname,, dname„, .... dname 

dname. Deck names for decks to be 

purged. 

Format two: 

-PURDECK dname . dname. 



The deck named dnamea and all decks up to and in- 
cluding dnamej, listed in the deck list are purged. 



IGNORE - IGNORE DECK MODIFICATIONS 

An IGNORE directive causes any further modification 
directives for the designated deck to be ignored. 
Modify skips modification directives other than 
IDENT, EDIT, and DECK. When one of these direc- 
tives is encountered, Modify processes it and re- 
sumes processing the input stream. Any modification 
directives for the decks that precede the IGNORE 
directive are processed normally. The EDIT deck 
name(s) encountered after an IGNORE directive are 
checked against the current ignore list." Any EDIT 
deck names are deleted. If an ignored deck is en- 
countered in the EDIT directive form deckname a . deck- 
namejj, the directive is flagged and is considered as 
having a modification error. The following message 
is issued. 

FORMAT ERROR IN DIRECTIVE 
Format: 

*IGNORE dname 



EDIT - EDIT DECKS 

Editing is a process of modifying a deck, if modifi- 
cations are encountered during the modification phase, 
and writing the deck on the compile file, new program 
library, and source file. 

The three possible modes of editing are selective, 
full, and update. The modes are selected through 
Modify control statement options. 
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p. A deckname or range of decknames 

in one of the following forms: 

deckname 

deckname . deckname, 
a b 

The first form requests that Modify 
edit a deck on the program library; 
the second form requests a range of 
decks starting with deckname a and 
ending with deckname^. If deck - 
names are in the wrong sequence, 
Modify issues the error message: 



NAMES SEPARATED BY 
WRONG ORDER. 



. * IN 



If Modify fails to find one of the 
decks, it issues the message: 

UNKNOWN DECK - deckname. 



If decks are being replaced or new decks are added, 
the new decks are placed at the end of the library. 

will no longer lie within the sequence. 



FULL EDIT MODE 

When a full edit is requested (F selected on Modify 
control statement). Modify ignores EDIT directives. 
It writes all decks in the sequence encountered on the 
program library. This option provides for creating 
a complete new program library. Because the same 
decks that are written on the new program library 
are also written on the compile file, a user wishing 
to obtain only a partial set of decks on the compile 
file must request separate runs of Modify — one run 
for creating the new program library and one run 
for creating the compile file. 



UPDATE EDIT MODE 



SELECTIVE EDIT MODE 

When selective editing is desired (neither F nor U 
selected on the Modify control statement). Modify 
edits only the decks specified on EDIT directives. 
EDIT directives cause a deck to be written regard- 
less of whether it was corrected or not. Decks are 
edited in the sequence encountered on EDIT direc- 
tives unless an UPDATE directive specifies other- 
wise. Modifications encountered during the modifi- 
cation phase are not incorporated in a deck if the 
deck is not specified on an EDIT directive. In 
particular, calling a common deck from within a 
deck being edited does not automatically result in 
the common deck being edited. 



If the U option is selected on the Modify control 
statement. Modify edits only those decks mentioned 
on DECK directives and ignores the EDIT directives. 
Thus, only decks being updated by the Modify run 
are written on the compile file. This mode is not 
normally requested when a new program library or 
source file is desired. 



MODIFICATION DIRECTIVE EXAMPLES 

Figure 4-1 is a detailed example of some of the 
modification directives presented in this section. 



batch, 45000 
SRFL, 45000. 
/get ,opl=mainpl 
/modify, f ,l=0,n=mainpl 

? *ident modi-* 

•deck deck3 



This modification set is given name MODI. 



♦delete deck3.1 

*** subroutine 2, deck deck3. 

*deck deck2 

*d 1< — — 

*** subroutine i, deck deck2. 
•insert 3 

* call subroutine sub2 

* in deck deck2. 
•delete 7 

*** end deck2. 

•deck deckl 

*d 1 

*** main oroqram, deck deckl. 



.{ Refer to listing of compile file in figure 3-3 

I fr\ **o-FiQ**or»*-v«» lima, c **r% •■■■»•-• *-w *% mi*Hli «*»« 



MODIFICATION COMPLETE. 



Figure 4-1. Modification Directive Examples (Sheet 1 of 3) 
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/copycf , compile 

*** MAIN PROGRAM, DECK DECKl. 

PROGRAM MAIN (OUTPUT) 

PRINT*, "BEGIN MAIN PROGRAM." 

CALL SUB1 

PRINT*, "END MAIN PROGRAM." 

STOP 

END 
*** SUBROUTINE 2, DECK DECK3. 

SUBROUTINE SUB2 

PRINT*, "ENTER SUBROUTINE 2." 

PRINT*, "EXIT SUBROUTINE 2." 

RETURN 

END 
*** SUBROUTINE 1, DECK DECK2. 

SUBROUTINE SUB1 

PRINT*, "ENTER SUBROUTINE 1." 

* CALL SUBROUTINE SUB2 

* IN DECK DECK2. 
CALL SUB2 

PRINT*, "EXIT SUBROUTINE 1." 
RETURN 

«** END DECK2.'* 

END OF INFORMATION ENCOUNTERED. 
=0,p 
•ident mod 2 
♦deck deck 2 
♦restore 7 
*d modi. 3 
•edit deck2 



? 

? 

? 

? 

? 

? 
MODIFICATION COMPLETE. 

/copycf ,coml 

*** SUBROUTINE 1, DECK DECK2. 
SUBROUTINE SUB1 
PRINT*, "ENTER SUBROUTINE 1.' 

* CALL SUBR OUTINE SUB2 

CALL SUB2*^ — 

PRINT*, "EX IT SUBROUTINE 1." 

RETURN 

END-*- — " 





MODI 


l 




DECKl 


2 




DECKl 


3 




DECKl 


4 




DECKl 


5 


Listing of compile 


DECKl 


6 


file created by 


DECKl 


7 


Modify. 


MODI 


1 




DECK3 


2 




DECK3 


3 




DECK 3 


4 




DECK3 


5 




DECK3 


6 




MODI 


1 




DECK 2 


2 




DECK 2 


3 




MODI 


2 




MODI 


3 




DECK 2 


4 




DECK 2 


5 


advertentiv deleted EN 




c. 



\ statement. 



MODI 



(Modification run to restore deleted line, 
delete line MODI. 3. 



Note that compile 
file contains only 
edited deck(s). 



■ JNOte aej.etea line. 



and 



■ END statement restored. 



*** END DECK2. 

END OF INFORMATION ENCOUNTERED, 
/modify, 1-0, p«mpll,n-mpl2,c«com2 
? * ident mod 3 
? *deck deck 2 

? *modname modi 

? *restore 3** , 



MODI 


1 


DECK2 


2 


DECK 2 


3 


MODI 


2 


DECK2 


4 


DECK2 


5 


DECK2 


6 


DECK2 


7 


MODI 


4 



• Line deleted in Tevious Modify run is restored. 



-Restored line. 



? *edit deck2 

? 

MODIFICATION COMPLETE, 
/copycf , com 2 
*** SUBROUTINE 1, DECK DBCK2. 

SUBROUTINE SUB1 

PRINT*, "ENTER SUBROUTINE 1. 

* CALL SUBROUTINE SUB2 

* IN DECK DECK2.< 

CALL SUB2 

PRINT*, "EXIT SUBROUTINE 1." 

RETURN 

END 

*** END DECK2. 

END OF INFORMATION ENCOUNTERED. .„ T T „„_ T _ 4 .... .. t 

/rewind , mainpl ,mpl2 The LIBEDIT utility provides a convenient 

copuTun mathpt mm •> I means of replacing or adding records on a file. 

SSS-R2tl,W,l« P l2,o^H*'.'» *• N°S Reference Manual I volume 1. 

EDITING COMPLETE. " or a description of the LIBEDIT utility. 



MODI 


1 


DECK2 


2 


DECK2 


3 


MODI 


2 


MODI 


3 


DECK2 


4 


DECK2 


5 


DECR2 


6 


DBCK2 


7 


MODI 


4 



Figure 4-1. Modification Directive Examples (Sheet 2 of 3) 
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/catalog, 
REC 


,mainpl,r 
CATALOG 
NAME 


OF MAINPL 
TYPE 


PILE 
LENGTH 


1 


DECK1 
HODl 


OPL 


(64) 


37 


2 


DECK3 
HODl 


OPL 


(64) 


34 


3 


DECK2 
MODI 


OPL (64) 
HOD 2 


55 

MOD3 


4 


OPL 


OPLD 




11 


5 


* EOF * 


SUM » 


161 



CATALOG COMPLETE, 
/replace ,mainpl 

/modify, 1-0, p»mainpl,c*com3,n=nplx< 

? *ident modx 
? *deck deck2 
? *yank mod3 
? *edit deck2 
? 

MODIFICATION COMPLETE, 
/catalog, njplx,r 

CATALOG OF NPLX FILE 

NAME TYPE LENGTH 



REC 

1 



DECK2 
MODI 

OPL 



OPL (64) 
MOD 2 



55 
(MOD3 w ) 



OPLD 



SUM 




CKSUM DATE 

7732 76/01/22. 

3117 76/01/21. 

5026 76/01/22. 

7477 76/01/22. 



I Temporary modification run to deactivate 
.{modification set MOD3 and selectively edit 
(deck DECK2. 



CATALOG COMPLETE, 
/copycf ,com3 
*** SUBROUTINE 1, DECK DECK2. 

SUBROUTINE SUB1 

PRINT*, "ENTER SUBROUTINE 1. 
* CALL SUBROUTINE SUB2 

CALL SUB2 

PRINT*, "EXIT SUBROUTINE 1.' 

RETURN 

END 
•*• END DECK2. 
END OF INFORMATION ENCOUNTERED. 



1 
CKSUM 

6626 



DATE 
76/01/22. 



2117 76/01/22. 
i parentheses. 



Compare with previous 
compile file of DECK2. 



MODI 


1 


DECK2 


2 


DECK2 


3 


MODI 


2 


DECK 2 


4 


DECK 2 


5 


DECK 2 


6 


DECK 2 


7 


MODI 


4 



Figure 4-1. Modification Directive Examples (Sheet 3 of 3) 
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FILE MANIPULATION DIRECTIVES 



File manipulation directives allow user control over 
files during the initialization and modification 
phases. Two of these directives, READ and 
READPL, may be used to change the source of di- 
rectives and insertion text from the directives file 
to an alternate file. While an insertion is in prog- 
ress, a file change does not terminate insertion. 
Insertion continues until Modify reads the next 
modification directive. File manipulation directives 
are illegal when Modify is reading from an alternate 
file and result in the following message: 

OPERATION ILLEGAL FROM ALTERNATE FILE 
INPUT. 

The file manipulation directives include: 

READ Read record or group of records 

from specified file. 

READPL Read deck or portion of deck from 
program library. 

BKSP Backspace specified number of 

records on file. 

SKIP Skip forward specified number of 

records on file. 

SKIPR Skip forward past the specified 

record on file. 

REWIND Rewind named files. 

RETURN Return named files to system. 



These operations cannot be performed on the follow- 
ing reserved files (or their equivalents). 



INPUT 

OUTPUT 

COMPILE 

SOURCE 

OPL 

NPL 

SCR1 

SCR 2 

SCR3 



Source of directives 
Statistics output 
Compile 
Source output 
Old program library 
New program library 
Scratch file 1 
Scratch file 2 
Scratch file 3 



These file names are reserved only through their 
respective Modify control statement options. For 
example, if the S option is not specified, the file 
SOURCE is not reserved and the user can use file 
manipulation directives specifying a file of that 
name. However, file names SCR1, SCR 2, and 
SCR3 should not be used. 



READ - READ ALTERNATE 
DIRECTIVES FILE 

The READ directive causes Modify to temporarily 
stop reading the directives file and begin reading 
directives and insertion text from the specified 
record on the named file or current position if 
deckname is omitted (or *). Unless * is the 
deckname field, Modify reads from the alternate 
directives file until it encounters an end-of-record 
and then resumes with the next directive on the 
primary directives file. 

If Modify is unable to find the named record, it 
issues the message 

RECORD NOT FOUND. 

Formats: 

*READ file 
*READ file.dname 
*READ file, * 

file Name of file containing insertion 

text and /or directives. 



dname Optional; if dname is specified, 

text must be in source file 
format; that is, the first word 
of record is the name of the 
record. Modify discards the 
name before processing any 
text. 

* Optional; if specified. Modify 

processes all records on the 
file up to an end-of-file or a 
zero-length record. These 
records must be in source file 
format. 



READPL - READ PROGRAM LIBRARY 

The READPL directive causes Modify to temporarily 
stop reading the directives file and begin reading 
directives and insertion text from the specified 
Modify deck. It allows a user to insert text from 
one deck on the program library into another program, 
or to move text within a program. 

Formats : 



*READPL dname 
-READPL dname, c 

dname 



l' C 2 



c l' c 2 



Name of deck on old program 
library. 

Portion of deck to be read; 

must be more than one line. 
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Modify inserts all the active lines in the deck or 
portion of the deck specified by the READPL, If 
ci, C2 are omitted, it reads the entire deck before 



T»o+nr»«i vtrr 4-s*. t-Via rli-t^^^t- 



NOTE 



During processing of the READPL direc- 
tive, Modify does not perform any modi- 
fications to the text in the deck it is read- 
ing. If the user wishes the new text to be 
modified, he must make the corrections 
to the deck into which the text is being 
inserted; that is, the text is taken from 
the deck exactly as it is on the program 
library. 



BKSP - BACKSPACE FILE 

The BKSP directive repositions the named file one 
or more logical records in the reverse direction. 
It does not backspace beyond the beginning-of-infor- 
mation. 

Formats: 

*BKSP file 
*BKSP file, n 

file Name of file to be positioned, 

n Number of records to be 

skipped in the reverse direc- 
tion. If n is omitted, Modify 
backspaces one record. 



SKIPR - SKIP FORWARD PAST RECORD 



me owrn uirecuve repositions trie nameu me 
forward past the specified logical record. It does 
not position the file past the end-of-information. 
If Modify is unable to locate the record in the for- 
ward search, it positions the file at the end-of-infor- 
mation and issues the message 

RECORD NOT FOUND. 



Format: 

*SKIPR file.rname 

file Name of file to be positioned. 

rname Name of record on file that file 
is positioned after. 

REWIND - REWIND FILES 

The REWIND directive repositions one or more files 
to their first records. 

Format: 

*REWIND file lf file 2 » .... file n 



file.. 



Names of files to be rewound. 



RETURN - RETURN FILES TO SYSTEM 



SKIP - SKIP FORWARD ON FILE 

The SKIP directive repositions the named file for- 
ward one or more logical records. If an end-of- 
information is encountered before the requested 
number of records has been skipped, the file is 
positioned at the end-of-information. 

Formats: 

*SKIP file 
*SKIP file, n 

file Name of file to be positioned. 

n Number of records to be 

skipped in the forward direc- 
tion. If n is omitted. Modify 
skips one record. 



The RETURN directive immediately returns files to 
the operating system. 



Format: 



*RETURN file r file 2 , . 



, , f ite 



file. 



Names of file to be returned. 



FILE MANIPULATION DIRECTIVE EXAMPLES 



Figure 5-1 illustrates several of the file manipulation 
directives discussed in this section. 



5-2 



60450100 B 



LINE 1 ADDED BY MODIFICATION SET MODX.' 
2 ADDED BY MODIFICATION SET MODX.' 



File manipulation directives. 



batch, 4S000 
SRFL, 45000. 
/old,dirfil 
/lnh,r 

PRINT* , 
— EOR-- 

PRINT*, "LINE 

— EOR — *. 

DECKX ~ ~~ " 

PRINT*, "LINE 3 ADDED BY MODIFICATION SET MODX. 
— EOR — 
•EDIT DECK1 
♦EDIT DECK2 
•EDIT DECK3 
— EOR— 

/old,opl*mainpl 
/get, dirfil 

/modify, 1=0 ,n«newpl ,c=con»x 
? *skip dirfil, 2 
? *ident modx 
? *deck decks 
? *i 2 

? *cead dirfil, decks 
? *bksp dirfil, 2 
? *deck deck 3 
? *i 3 

? *read dirfil 
? *rewind dirfil 
? *deck deckl 
? *i 4 

? *read dirfil 
? *skipr dirfil,deckx 
? *read dirfil 
? *return dirfil 
? 

MODIFICATION COMPLETE, 
/copycf ,comx 

*** MAIN PROGRAM, DECK DECKl. 
PROGRAM MAIN (OUTPUT) 

PRINT*, "BEGIN MAIN PROGRAM." 
CALL SUB1 

PRINT*, "LINE 1 ADDED BY MODIFICATION SET MODX. 
PRINT*, "END MAIN PROGRAM." 
STOP 
END 
*** SUBROUTINE 1, DECK DECK2. 
SUBROUTINE SUB1 

PRINT*, 'LINE 3 ADDED BY MODIFICATION SET MODX. 
PRINT*, "ENTER SUBROUTINE 1." 

* CALL SUBROUTINE SUB2 

* IN DECK DECK2. 
CALL SUB2 

PRINT*, "EXIT SUBROUTINE 1 
RETURN 
END 

END DECK2. 

SUBROUTINE 2, DECK DECK3. 
SUBROUTINE SUB2 
PRINT*, "ENTER SUBROUTINE 2." 

PRINT*, "LINE 2 ADDED BY MODIFICATION SET MODX 
PRINT*, "EXIT SUBROUTINE 2." 
RETURN 
END 

END OF INFORMATION ENCOUNTERED. 



-Alternate directives file. 



*** 
*** 



Compile file containing 
modifications from 
alternate directives 
file. 



MODI 


1 


DECKl 


2 


DECKl 


3 


DECKl 


4 


MODX 


1 


DECKl 


5 


DECKl 


6 


DECKl 


7 


MODI 


1 


DECK2 


2 


MODX 


1 


DECK 2 


3 


MODI 


2 


MODI 


3 


DECK2 


4 


DECK 2 


5 


DECK 2 


6 


DECK 2 


7 


MODI 


4 


MODI 


1 


DECK 3 


2 


DECK3 


3 


MODX 


1 


DECK3 


4 


DECK 3 


5 


DECK3 


6 



Figure 5-1. File Manipulation Directive Examples (Sheet 1 of 2) 
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/catalog 
REC 


, newpl,r 
CataLOG 
NAME 


Or neWj?L 
TYPE 


riLE 
LENGTH 


I 
CKSUM 


DATE 


1 


DECKl 
MODI 


OPL (64) 
MODX 


47 


7152 


76/01/22. 


2 


DECK2 
MODI 


OPL <64) 
MOD2 


65 
MOD3 


6115 
MODX 


76/01/22. 


3 


DECK3 
MODI 


OPL (64) 
MODX 


44 


7430 


76/01/21. 


4 


OPL 


OPLD 


7 


7403 


76/01/23. 


5 


* EOF * 


SUM = 


287 







CATALOG COMPLETE, 
/rewind, coma 
S REWIND, COM X. 
/ftn,i=comx ,1=0 

.215 CP SECONDS COMPILATION TIME 
/lgo 

BEGIN MAIN PROGRAM. 

LINE 3 ADDED BY MODIFICATION SET MODX. 

ENTER SUBROUTINE 1. 

ENTER SUBROUTINE 2. 

LINE 2 ADDED BY MODIFICATION SET MODX. 

EXIT SUBROUTINE 2. 

EXIT SUBROUTINE 1. 

LINE 1 ADDED BY MODIFICATION SET MODX. 

END MAIN PROGRAM. 

.009 CP SECONDS EXECUTION TIME 



Execution of modified program. 



Figure 5-1. File Manipulation Directive Examples (Sheet 2 of 2) 



5-4 



60450100 A 



COMPILE FILE DIRECTIVES 



The directives described in this section provide 
user control during the write compile file phase. 
These directives are interpreted at the time the 
program library decks are written onto the compile 
file. A call for a common deck results in the deck 
being written on the compile file. Other directives 
allow control of file format. 

The user can prepare his original source deck with 
compile file directives embedded in it, or he can 
insert compile file directives into program library- 
decks as a part of a modification set. Compile file 
directives are not recognized when they are on the 
directives file; they do not terminate insertion* but 
are simply considered as text lines to be inserted! 

Compile file directives include: 



WEOF 



Write end -of -file on compile 
file. 



CALL 

Yfcall 

NIFCALL 
CALLALL 

IF 
ELSE 



Write called deck onto com- 
pile file. 

Write called deck onto com- 
pile file if name is defined. 

Write called deck onto com- 
pile file if name is not de- 
fined. 

Write all decks onto compile 

ginning with specified char- 
acter string. 

Include lines in compile file 
if specified attribute is true 
and until a reversal directive 
is encountered (ELSE or 
ENDIF). 

Reverse an IF directive con- 
ditional ranpe. 



ENDIF 


Terminate an IF directive 
conditional range. 


COMMENT 


Generate COMMENT pseudo 
instruction for COMPASS. 


WIDTH 


Define number of columns 
preceding sequence informa 
tion on compile file. 


NOSEQ 


Specify no sequence infor- 
mation on compile file. 


SEQ 


Specify sequence informa- 
tion on compile file. 


WEOR 


Write end-of-record on com 
pile file. 


CWEOR 


Write end-of-record on com 
pile file if the buffer is not 
empty. 



NOTE 



A common deck cannot call another 
common deck. That is, if the directives 
CALL, IFCALL, NIFCALL, or CALL- 
ALL are in a common deck, they are 
ignored. 



CALL - CALL COMMON DECK 



Modify places a copy of the requested deck on the 
compile file. It does not copy the request to the 
compile file. However, the new program library 
and the source file contain the CALL directive. 

Format: 



*CALL deckname 
deckname 



Name of common deck to be 
written on compile file. 



IFCALL - CONDITIONALLY CALL 
COMMON DECKS 



Modify places a copy of the requested deck on the 
compile file if the conditional name has been defined 
on a DEFINE directive during the modification 
phase. If the name has not been defined, the com- 
mon deck is not written on the compile file. Modify 






file. 



l"G>r-" ATT J.*. 1.' a- j.1- _ -. 

ir vxiiju \jxi c«j ti vc to uit; compile 



Format: 

*IFCALL name, deckname 
name 



1^ to 7 -character conditional 
name. 



deckname Name of common deck to be 

written on compile file if name 
is defined. 



NIFCALL - CONDITIONALLY CALL 
COMMON DECKS 

Modify places a copy of the requested deck on the 
compile file if the conditional name has not been 
defined (refer to DEFINE directive, section 7) 
during the modification phase. If the name has 
been defined, the common deck is not written on 
the compile file. 
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Format: 

*NIFCALL name, deckname 
name 



1- to 7 -character conditional 
name. 



deckname Name of common deck to be 
written on compile file if 
name is not defined. 



CALLALL - CALL RELATED 
COMMON DECKS 

Modify places a copy on the compile file of every 
deck name beginning with the specified character 
string. 

Format: 

*CALLALL string 



IF - TEST FOR CONDITIONAL RANGE 

Modify tests the specified condition and, if true, 
writes all following lines onto the compile file un- 
til encountering a reversal (ELSE) or termination 
(ENDIF) directive. If the condition is false, the 
lines are skipped until a reversal or termination 
directive is encountered, Lines skipped 'in such 
a range are treated as inactive. 



Format: 



"IF atr, name, value 
atr 



Attribute; must be one of the 
following: 

DEF name defined 

UNDEF name undefined 
EQ name equal to value 

NE name not equal to 

value 



ELSE - REVERSE CONDITIONAL RANGE 



ELSE is a conditional range reversal directive. 
When encountered, the effects of a previous IF 



directive are reversed. 



rtn rjj-jor-i uuecuvc en- 



countered without an IF range in progress is 
diagnosed as an error. 

Format: 

*ELSE 



ENDIF - TERMINATE CONDITIONAL RANGE 

■pTJnTTT i<= n ^nnriitirmsl ranffp termination directive. 

-"- ■—-—-— — — " _ o _ 

When encountered, the effects of a previous IF 
directive are terminated. An ENDIF directive en- 
countered without an IF range in progress is diag- 
nosed as an error. 

Format: 

*ENDIF 



COMMENT - CREATE COMMENT LINE 

This directive causes Modify to create a COMPASS 
language COMMENT pseudo instruction (beginning 
in column 3) in the following format. Modify obtains 
the dates from the operating system. 



COMMENT 



crdate 



VARIABLE SUtFIElOS 



moddate 



comments 



crdate 



Creation date in the format 

Ayy/mm/dd. 

moddate Modification date in the format 
Ayy/mm/dd. 

Format: 

^COMMENT comments 

comments Character string. 

WIDTH - SET LINE WIDTH ON 
COMPILE FILE 

The WIDTH directive allows the user to change the 
width of lines during the compile phase. Modify 
uses the new width until it encounters another 
WIDTH directive. 

Format: 

*WIDTH n 

n Number of columns preceding 

sequence information on com- 
pile file and source file. 
Modify allows a maximum of 
100 columns. 



NOTE 



During initialization of Modify, width is 
set to 72; additional columns of data are 
truncated. 
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60450100 B 



NOSEQ - NO SEQUENCE INFORMATION 

The NOSEQ directive allows the user to set the no 
sequence flag during the write compile file phase. 
When no sequence information is requested, Modify 
does not include sequence information on the com- 
pile file. A SEQ directive encountered subsequent 
to NOSEQ resumes sequencing. 

Format: 

*NOSEQ 



CWEOR - CONDITIONALLY WRITE END 
OF RECORD 

Modify writes an end -of -record on the compile file 
if information has been placed in the buffer since the 
last end-of-record was written. 

Format: 

*CWEOR 



SEQ - INCLUDE SEQUENCE INFORMATION 

The SEQ directive allows the user to clear the no 
sequence flag during the write compile file phase and 
to begin placing sequence information on the compile 
file. A NOSEQ directive encountered subsequent to 
a SEQ sets the no sequence flag. 

Format: 

*SEQ 

WEOR - WRITE END OF RECORD 

Modify unconditionally writes an end-of-record on 
the compile file when encountering the WEOR direc- 
tive. 

Format: 

*WEOR 



WEOF - WRITE END OF FILE 

Modify writes an end-of-file on the compile file. 
Format: 

*WEOF 



COMPILE FILE DIRECTIVE EXAMPLES 

Figure 6-1 illustrates several of the compile file 
directives presented in this section. 
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batch, 45000 

SRFL, 45800. 

* ~* * — * j — * 

/get,csub 
/copycr ,csub*- 
DECK4 



♦COMMENT 

*** 

♦CALL 
SUB3 



IDENT SUB3 
ENTRY SUB3 
CALL DECK DECKS 
CALL COMMON DECK. 

DECK5 * 

DATA 
ORIGIN JOT 



f Copy of source file to be incorporated into 
"I program library. 



GET JOB ORIGIN 



STORE JOB ORIGIN 



EO SUB3 
USE // 
JOT BSS 1 

END 
COPY COMPLETE. 
/copycr,csub 
DECK5 
COMMON 
ORIGIN MACRO A 

SA1 66B 
MX0 24 
BX6 -X0*X1 
AX6 24 
SA6 A 
ENDM 
COPY COMPLETE, 
/nod i f y , f , p»0 , 1*0 , n«n>ainpl , c=coml , s*mainp 
? "oplfile opl 
♦rewind csub 
♦create csub 
♦ident mod4 
♦deck deckl 
♦i 2 

common jot 
3 

call sub3 

if (jot.eq.3)print», 
if (jot.ne. 3) prints, 
"deck deck 4 



— Notice call to common deck DECK5. 
ENTRY/EXIT 

RETURN 



♦i 



? 
? 
? 
? 
? 
/ 
? 
? 
? 
? 
? 

? B weor 

? ♦deck deck 3 

? "i 

? ♦weor 

? "deck deck2 

? *i B 

? ♦weor 

? 

MODIFICATION COMPLETE, 
/catalog ,mainpl , r 

CATALOG OF MAINPL 
"REC" NAME TYPE 



j Modify run to create new program library 
(consisting of source file and OPL. 



time-sharing job. 
batch iob." 



Addition of compile file directives. 



1 


DECK1 


OPL (64) 


61 




MODI 


MOD4 




2 


DECK 3 


OPL (64) 


37 




MODI 


MOD4 




3 


DECK 2 


OPL (64) 


60 




MODI 


MOD 2 


MOD 3 


4 


DECK4 
MOD4 


OPL (64) 


47 


5 


DECK5 


OPLC (64) 


27 


6 


OPL 


OPLD 


13 


7 


♦ EOF ♦ 


SUM = 


311 


r* » m% T r\f* 


COMPLETE . 







FILE 1 

LENGTH CKSUM DATE 

3171 76/01/22. 



liii in/vi/zi. 



5455 76/01/22. 
MOD4 

5063 76/01/23. 



6354 76/01/23. 
3706 76/01/23. 



Figure 6-1. Compile File Directive Examples (Sheet 1 of 3) 
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/copycr , coral 

*** MAIN PROGRAM, DECK DECK1. 

PROGRAM MAIN (OUTPUT) 

COMMON JOT 

PRINT*. "BEGIN MAIN PROGRAM." 

CALL SUB3 

IF ( JOT. £0 .3) PRINT* , "TIME-SHARING JOB . 

IF(JOT.NE. 3) PRINT*, "BATCH JOB." 

CALL SUB1 

PRINT*, "END MAIN PROGRAM." 

STOP 

END 
COPY COMPLETE, 
/copycr ,coml 
*** SUBROUTINE 2, DECK DECK3- 

SUBROUTINE SUB2 

PRINT*, "ENTER SUBROUTINE 2." 

PRINT*, "EXIT SUBROUTINE 2." 

RETURN 

END 
COPY COMPLETE, 
/copycr , com 1 
*** SUBROUTINE 1, DECK DECK2. 

SUBROUTINE SUB1 

PRINT*, "ENTER SUBROUTINE 1." 

* CALL SUBROUTINE SUB2 

* IN DECK DECK2. 
CALL SUB2 

PRINT*, "EXIT SUBROUTINE 1." 
RETURN 
END 
*** END DECK2. 

COPY COMPLETE, 
/copycr ,coml 

IDENT 
ENTRY 



Listing of compile file. 
Notice separation into 
records. 



SUB3 
SUB3 



f Notice that Modify has 
| replaced ^COMMENT 
. directive with COMPASS 
COMMENT statement on 
( compile file. 



COMMENT 76/01/23. 76/01/23. CALL DECK DECKS 



ORIGIN 



CALL COMMON DECK. 
MACRO A 



66B 

24 

-X0*X1 

24 

A 



SUB3 



SA1 

MX0 

BX6 

AX6 

SA6 

ENDM 

DATA 

ORIGIN JOT 
SUB3 
// 
1 



GET JOB ORIGIN 



*CALL DECK5 is re- 
placed by contents of 
common deck. 



STORE JOB ORIGIN 



ENTRY/EXIT 



RETURN 



USE 

JOT BSS 

END 

COPY COMPLETE. 

/copycr , com 1 

END OF INFORMATION ENCOUNTERED. 
/replace,mainpl 
/pack, coir 1 

PACK COMPLETE. 
/£tn,i=coml,l-0 

.503 CP SECONDS COMPILATION TIME 

Ago 

BEGIN MAIN PROGRAM. 

TIME-SHARING JOB. 

ENTER SUBROUTINE 1. 

ENTER SUBROUTINE 2. 

EXIT SUBROUTINE 2. 

EXIT SUBROUTINE 1. 

END MAIN PROGRAM. 

.009 CP SECONDS EXECUTION TIME 
/primary, mainp 
$PRIMARY,MAINP. 



MODI 


1 


DECK1 


2 


M0D4 


1 


DECK1 


3 


M0D4 


2 


MOD 4 


3 


MOD4 


4 


DECK1 


4 


DECK1 


5 


DECK1 


6 


DECK1 


7 


MODI 


1 


DECK 3 


2 


DECK3 


3 


DECK3 


4 


DECK3 


5 


DECK3 


6 


MODI 


1 


DECK 2 


2 


DECK2 


3 


MODI 


2 


MODI 


3 


DECK 2 


4 


DECK2 


5 


DECK 2 


6 


DECK2 


7 


MODI 


4 


DECK4 


1 


DECK4 


2 


DECK4 


3 


DECK4 


4 


DECK5 


1 


DECK5 


2 


DECK 5 


3 


DECKS 


4 


DECKS 


5 


DECKS 


6 


DECKS 


7 


DBCK4 


6 


DECK4 


7 


DECK4 


8 


DECK4 


9 


DECK4 


10 


DECK4 


11 



Figure 6-1. Compile File Directive Examples (Sheet 2 of 3) 
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/lnh.r 

*** MAIN PROGRAM, DECK DECK!. 

COMMON JOT 

PRINT*, "BEGIN MAIN PROGRAM." 

CALL SUB3 _ , 

IF (JOT. EO. 3) PRINT*, "TIME-SHARING JOB.' 

IF (JOT. NE. 3) PRINT*, "BATCH JOB." 
CALL SU31 

PRINT*, "END MAIN PROGRAM." 
STOP 
END 
— EOR — 
DECK3 
*V*EOR 

*** SUBROUTINE 2, DECK DECK3. 
SUBROUTINE SUB2 
PRINT*, "ENTER SUBROUTINE 2." 
PRINT*, "EXIT SUBROUTINE 2." 
RETURN 
END 



Contents of source file created by Modify. 



— EOR- 

DECK2 

*KEOR 

*** 



SUBROUTINE 1, DECK DECK2. 

SUBROUTINE SUB1 

PRINT*, "ENTER SU3R0UTIN1! 1 . " 

* CALL SUBROUTINE SUB2 

* IN DECK DECK2. 
CALL SUB2 

PRIST*, "EXIT SUBROUTINE 1." 

RETURN 

END 

END DECK 2. 



**» 
— EOR- 
DECK4 
•WEOR 



•COMMENT 
*•* 

*CALL 
SUB 3 



JOT 

— EOR — 
DECK5 
COMMON 
ORIGIN 



IDENT SU33 
ENTRY SUB3 
CALL DECK DECK5 
CALL COMMON DECK. 
DECK 5 
DATA 9 
ORIGIN JOT 



Note that source file contains call to common 
deck. 



EO 
USE 
BSS 
END 



MACRO 
SA 1 
MX9 
BX6 
AXS 



SUB3 
// 

1 



A 

66B 

24 

-X0*X1 

24 



ENTRY/ EXIT 
RETURN 



SA6 



GET JOB ORIGIN 



STORE JOB ORIGIN 



— EOR— 



Figure 6-1. Compile File Directive Examples (Sheet 3 of 3) 
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SPECIAL DIRECTIVES 



The directives described in this section provide 
extended features. They can be any place in the 
directive file for either creation or correction and 
primarily affect the operating features of Modify. 

/ List comment. 

PREFIX Changes prefix character for 

directives other than compile 
file directives. 

PREFIXC Changes prefix character for 

compile file directives. 

INWEDTH Sets width of input line to be 

compressed. 

DEFINE Defines name under which sub- 

sequent IFCALL directive may 
cause a common deck to be 
written, or NIFCALL may 
prevent a common deck from 
being written. 

MOVE Moves decks on new program 

library. 

UPDATE Specifies editing sequence 

and modification set number- 



/ - LIST COMMENT 

Other than being copied onto the Modify statistics 
(list) output, a comment line is ignored. It can 
occur any place in the directives file. 

Format: 

*/ comment 

Example: 

*/ ******MODIFICATIONS****** 



PREFIX - CHANGE MODIFY 
DIRECTIVES PREFIX 

The PREFIX directive resets the prefix character 
for subsequent Modify directives. It does not affect 
the prefix of compile file directives. When Modify 
is initialized, the character is preset to *. Modify 
uses * if a PREFDX directive is not used. 

Format: 

*PREFDC x 

x Character used in first column 

of directive (except compile 
file directive). A blank char- 
acter is illegal. 



PREFIXC - CHANGE COMPILE FILE 
DIRECTIVES PREFIX 

The PREFDXC directive resets the compile directive 
character so that only compile file directives with 
the x prefix are recognized. If a PREFIXc directive 
is not encountered, the default (*) is used. 

Format: 



*PREFDCC x 



Character used in first column 
of compile file directive. A 
blank character is illegal. 



INWIDTH - SET WIDTH OF INPUT TEXT 



The INWIDTH directive allows the user to set the 
width of input text from primary and alternate sources 
before it is compressed and written in the Modify 
library deck. An INWIDTH directive takes prece- 
dence over any previously defined width. INWIDTH 
can be placed anywhere in the- directives file. 



I^rtfmat- 



-INWIDTH n 

n 



Number of columns on input 
line to be compressed. Modify 
allows a maximum of 100 
columns. During initialization 
of Modifv, width is preset to 
72. 



DEFINE - DEFINE NAME FOR USE BY 
IFCALL, NIFCALL, IF 

By defining a name and its associated value, a user 
establishes the conditions that must be met for a 
conditional call of a common deck. This allows 
external control of the calls embedded in source 
decks. If the name is not defined, an IFCALL for 
a common deck is ignored. If the name is defined, 
a NIFCALL for a common deck is ignored. A 
DEFINE directive must be processed in order for 
an IF conditional test to be true. 

Format: 

*DEFINE name, value 

name Name used in compile file 

IFCALL, NIFCALL, or IF 
directive. 

value Value assigned to symbol 

name (maximum value may be 
3777777B). If omitted, name 
is defined with value zero. 
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MOVE -MOVE DECKS 

The MOVE directive enables the user to reorder 
decks while ^roducin a new n ro (, r?*in librafv. The 
decks, dname, are moved from their positions on 
the old library and placed after dname r on the new- 
library. 



each deck using the same IDENT. UPDATE also 
causes the order in which decks are edited to be 
according to their sequence on the old program 
library. 

Format: 

*UPDATE 



Format: 



*MOVE dname r , dname ., dnameg. dname ^ 



UPDATE - UPDATE LIBRARY 



SPECIAL DIRECTIVE EXAMPLES 

Figure 7-1 illustrates several special directives. 
Note that compile file directives can be ignored 
(depending on language processor) by changing the 
compile file prefix character. 



Use of this directive causes Modify to continue 
sequencing rather than restart sequencing with 



batch, 45008 

SRFL, 45000. 

/old ,opl»mainpl 

/mod 1 f y , f , c*coml , n»mainpl ,1-0 

? */ chanqe prefix character to # 

? "prefix #♦■ 



? fident mod 6 
? fdeck deck4 
? #1 4 

i space 
7 fprefixc 9* 



V fmove deckl,deck2,deck3 
? 

MODIFICATION COMPLETE, 
/catalog ,mainpl , r 



-Change Modify directive prefix character. 



i Change compile file prefix character so 
directives on prograi 
preted as comments. 



(directives on program library will be inter - 
pn 



REC 


CATALOG 
NAME 


OF MAINPL 
TYPE 


FILE 
LENGTH 


1 
CKSUM 


DATE 


1 


DECRl 
MODI 


OPL (64) 
MOD4 


61 


3171 


76/01/22. 


2 


DECK2 
MODI 


OPL (64) 
MOD 2 


60 
M0D3 


5455 
MOD4 


76/01/22. 


3 


DECK3 
MODI 


OPL (64) 
MOD4 


37 


2333 


76/01/21. 


4 


DECK4 
MOD4 


OPL (64) 
H0D6 


53 


3057 


76/01/23. 


5 
6 


DECK5 
OPL 


OPLC (64) 
OPLD fc 

SUM -\ 


27 
13 


6354 
3675 


76/01/23. 
76/01/23. 


7 


* EOF * 


315 






CATALOG 


COMPLETE , 


t 


*—— Notice reordered decks. 



Figure 7-1. Special Directive Examples (Sheet 1 of 2) 



7-2 



60450100 B 



/copycr ,coml 



*WEOR 

•** 



*WEOR 

*** 



MAIN PROGRAM, DECK DECKl. 

PROGRAM MAIN (OUTPUT) 

COMMON JOT 

PRINT*, "BEGIN MAIN PROGRAM." 

CALL SUB3 

IF (JOT. EO. 3) PRINT*. "TIME-SHARING JOB. 

IF (JOT. NE. 3) PRINT*, "BATCH JOB." 

CALL SUB1 

PRINT*," END MAIN PROGRAM." 

STOP 

END 

SUBROUTINE 1, DECK DECK2. 

SUBROUTINE SUB1 

PRINT*, "ENTER SUBROUTINE 1." 

CALL SUBROUTINE SUB2 

IN DECK DECK2. 

CALL SUB2 

PRINT*, "EXIT SUBROUTINE 1." 

RETURN 

END 

END DECK 2. 

SUBROUTINE 2, DECK DECK3. 

SUBROUTINE SUB2 

PRINT*, "ENTER SUBROUTINE 2." 

PRINT*, "EXIT SUBROUTINE 2." 

RETURN 

END 



Listing of compile file. 
Compile file directives 
have been ignored. 



*WEOR 





IDENT 


SUB3 








ENTRY 


SUB3 






♦COMMENT 


' CALL DECK DECK5 




*** 


CALL COMMON 


DECK. 






SPACE 


4 






*CALL 


DECK5 








SUB3 


DATA 
ORIGIN 



JOT 




ENTRY/EXIT 




EO 


SUB3 




RETURN 




USE 


// 






JOT 


BSS 

END 


1 






COPY COMPLETE. 








/copvcr , 


corol 








END OF 


INFORMATION ENCOUNTERED. 



MODI 


1 


DECKl 


2 


MOD 4 


1 


DECKl 


3 


MOD4 


2 


MOD4 


3 


MOD4 


4 


DECKl 


4 


DECKl 


5 


DECKl 


6 


DECKl 


7 


MOD4 


1 


MODI 


1 


DECK2 


2 


DECK2 


3 


MODI 


2 


MODI 


3 


DECK 2 


4 


DECK2 


5 


DECK 2 


6 


DECK2 


7 


MODI 


4 


MOD4 


1 


MODI 


1 


DECK 3 


2 


DECK3 


3 


DECK3 


4 


DECK3 


5 


DECK3 


6 


MOD4 


1 


DECK4 


1 


DECK4 


2 


DECK4 


3 


DECK4 


4 


MOD6 


1 


DECK4 


5 


DECK4 


6 


DECK4 


7 


DECK4 


8 


DECK4 


9 


DECK4 


10 


DECK4 


11 



Figure 7-1. Special Directive Examples (Sheet 2 of 2) 
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MODIFY CONTROL STATEMENT 



8 



The following control statement causes the Modify 
program to be loaded from the operating system 
library into central memory and to be executed. 
Parameters specify options and files. 



Option 



Significance 



MODIFY (p r P 2 , 



•Pn> 



The optional parameters, p^, may be in any order 
within the parentheses. Generally, a parameter 
can be omitted or can be in one of the following 
forms. 

option 

option = value 
option=0 

where option is one or two characters as defined in 
the following text. Unless Q or X is selected, 
parameters CB, CG, CL, or CS are meaningless. 
Value is a 1- to 7 -character name of a file or is a 
character string. 



CL - COMPASS list output including ^comment lines. 
Q or X option only. 

CL List output on OUTPUT file 

(L=OUTPUT). 
CL=filename List output on named file (L= 

filename), 
omitted or Short list instead of full list is 

CL=0 generated on OUTPUT file 

<L=0). 

CS - COMPASS systems text; Q or X option only. 

omitted or CS Systems text on SYSTEXT over- 
lay (S=SYSTEXT) 

CS=filename Systems text on named file 
(S=filename) 

CS=0 No systems text (S=0) 



CV - Character set conversion 

No conversion takes place. 



Option 



Significance 



omitted or 

CV=0 

CV=63 



A - Compressed compile file 

omitted Compile file is not in com 

A 



CV=64 



pressed tormat. 

Compile file is in compressed 

format. 



Convert library created using 

6 4 -character set to 6 3 -character 

set. 

Convert library created using 

63-character set to 64-character 

s@t 



NOTE 



CB 



Compile file output 

omitted or C Compile output to be written 

on file COMPILE. 

C=filename Write compile output on 

named file. 

C=0 No compile output. 

- COMPASS binary; Q or X option only, 
omitted or CB 



CB=filename 



CB=0 



COMPASS binary output 

written on the load-and-go 

file (B=LGO). 

COMPASS binary output 

written on the named file 

(B=filename). 

No binary output (B=0). 



When the CV=63 or CV=64 conversion 
option is selected, Modify forces C=0 
(no compile file generation). 

Conversion is recommended if the character- set 
of the old program library is not the same as the 
character set used when the program library is 
modified. Use CATALOG to determine *h rt 
character set of the program library (refer to 
volume 1 of the NOS Reference Manual). Check 
with a systems analyst to determine the character 
set in use at the site. 



CG - COMPASS get text option; Q or X option only. 
Takes precedence over CS. 

CG Load systems text from 

SYSTEXT (G=SYSTEXT). 

CG=filename Load systems text from 

named file (G=filename). 

CG=0 SYSTEXT not defined (G=0). 

omitted Load systems text from over- 

lay named in CS option. 



D - Debug 
omitted 

D 



F - Full edit 
omitted 



A directive or fatal error aborts 
the job. 

A directive error does not abort 
the job; the D option does not 
affect fatal error processing. 



Decks to be edited are determined 
by the U parameter or by EDIT 
directives. 

All decks on the library are to 
be edited and written on new 
program library, compile file, 
and source file if the respective 
options are selected. 
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Option 

I - Directive input 

omitted or I 
I=filename 

1=0 

L - List output 
omitted or L 

L=filehame 



L=0 



LO 



- List options 
omitted or LO 



LO= 



c l' c 2' 



Significance 



Directives on job INPUT file. 
Directives comprise next 
record on named file. 
No directive input. 



List output is written on job 
OUTPUT file. This file is 
automatically printed. 
List output is written on the 
named file. It is the user's 
responsibility to assure that 
the file is saved at job end 
or is printed. 

Modify does not generate a 
list output file. 



List options E, C, T, M, W, 
D, and S are selected. 
Each character (c^) selects an 
option to a maximum of seven 
options. 



Option 



Signif icanc e 



NR - No rewind of compile file 

omitted Compile file is rewound at be- 

ginning and end of Modify run. 

NR Compile file is not rewound at 

beginning and end of Modify 
run. 

P - Program library input 

omitted or P Program library on file OPL. 



P=filename 
P=0 



Q 



Option 


Significance 


A 


List active lines in 




deck 


C 


List directives other 




than INSERT. DE- 




LETE, RESTORE. 




»«"\rvM4 TV/ITT T ^». I~» 


D 


List deck status 


E 


List errors 


I 


List inactive lines 




in deck 


M 


List modifications 




performed 


S 


Include statistics on 




listing 


T 


List text input 


W 


List compile file 




directives 



Program library on named file. 
No program library input file. 

Execute named program; no rewind of directives 
file or list output file. 

omitted or Q=0 Assembler or compiler is NOT 
automatically called at end of 
the Modify run. 

Q= program At the beginning of the Modify 

run, Modify sets LO=E and sets 
the A parameter. At the end of 
the run. Modify calls the as- 
sembler or compiler specified 
by program. 

Q At the beginning of the Modify 

run. Modify sets LO=E and sets 
the A parameter. At the end of 
the run. Modify calls the COM- 
PASS assembler. When this 
option is selected, the CB, CL, 
CS, and CG parameters are 
meaningful. Compiler input is 
assumed to be COMPILE. All 
other parameters are set by de- 
fault. If CL is not specified 
with Q, lines beginning with an 
asterisk in column 1 are not 
written to the compile file (com- 
pile file directives are processed, 
however). 



Source output; illegal when A, Q ; 

S 



or X are selected. 



N - New program library output 



N 



N=filename 



omitted or 
ivr=ft 



New program library to be 

written on file NPL. 

New program library to be 

written on named file. It is 

the user's responsibility to 

assure that the file is saved 

at job end. 

Modify does not generate a 

new program library* 



| NOTE 



If a new program library is being genera- 
ted, an EVICT is performed upon it (NPL 
or filename) before it is written on (refer 
to the NOS Reference Manual, volume 1, 
for a description of EVICT). 



Source output written on file 
SOURCE. 

Source output written on named 
file. It is the user's responsi- 
bility to assure that the file is 
saved at job end. 

Modify does not generate a source 
output file. 



Decks to be edited are determined 
by EDIT directives or by the F 
parameter. 

Only decks for which directives 
file contains DECK directives 
are edited and written on the 
compile file, new program li- 
brary, and source file if the 
respective options are on. F, if 
specified, takes precedence. 



X - Execute named program; directives file and list 
output file rewound. 

Same as Q option, except Modify 
directives input (I parameter) and 
list output (L parameter) files are 
rewound before processing. 



S=filename 

omitted or S=0 

U - Update edit 
omitted 

U 
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Option Significance 

Z - Control statement input 



omitted 



The control statement does 
not contain the input direc- 
tives. 

The Modify control statement 
contains the input directives 
following the terminator; the 
input file is not read. This 
eliminates the need to use a 



Option Significance 

separate input file for the di- 
rectives when only a few 
directives are needed. The 
first character following the 
control statement terminator 
is the separator character. 

Example: MODIFY(Z)/*EDIT. 
DECK1/*EDIT, DECK2 
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MODIFY FILE FORMATS 



Types of Modify files significant to Modify execu- 
tion include: 

• Source files 

• Program library files 

• Directives file 

• Compile file 



When U is selected, the source file contains only 
those decks named on DECK directives; that is, only 
the decks updated during the current Modify run. 

When neither F nor U is selected, the source file 
contains only those decks explicitly requested on 
EDIT directives. 



SOURCE DECKS AND FILES 

A source j.ii.e is a cOixection of information either 
prepared by the user or generated by Modify. 



SOURCE DECKS PREPARED BY USER AS INPUT 
TO MODIFY 

A user prepares a source deck for input to Modify 
by placing a deck name and optionally a COMMON 
statement in front of the source language deck 
(figure 3-1). At the same time, the user also in- 
serts compile file directives, as required, into the 
source language deck to control compile file output 
from Modify. Each source deck is terminated by 
an end-of-record. A group of decks is terminated 
by an end-of-file or end-of -information. The deck- 
name and COMMON statements are not placed on 
the program library. 

Modify source decks should not be confused with a 
compiler or assembler program. A Modify source 
deck can contain any number of FORTRAN programs, 
subroutines or functions; COMPASS assembler 
IDENT statements; or set of data. Typically, each 
Modify deck contains one program for the assembler 
or compiler or one set of data. 

SOURCE FILES GENERATED BY MODIFY 

The source file generated as output by Modify 
contains a copy of all active lines within decks 
written on the compile file and new program library. 
The source file is optional output from Modify and 
is controlled through use of the S option on the 
Modify control statement. Once generated, the 
source file can be used as source input on a sub- 
sequent Modify run. The file is a coded file that 
contains 80-column images. Any sequencing infor- 
mation beyond the 80th column is truncated. When 
F is selected on the Modify control statement, the 
source file contains all lines needed to recreate the 
latest copy of the program library. 



PROGRAM LIBRARY FILES 

Program library files (figure 9-1) provide the pri- 
mary form of input to Modify. When a program 
library file is input, it is an old program library 
and has a default name of OPL. When it is output, 
it is a new program library and has a default name 
of NPL. 



£ 



T. 



prefix table 



modification table | 



text i 



End-of-record 



prefix tabieg 



!il'-f**-!'.r. •!-. 



text g 



End-of-recordg 



prefix tabl«3 



End -of -record,, - 



n-l 



prefix table n 



modification table,, 



text* 



End -of -record,, 



prefix table n+ | 



directory table 



directory 



Deck (record) | 



Deck (record) g 






Oeek (record)n 



End -of -record,, + 1 
End-of-information 
Figure 9-1. Library File Format 
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Before writing the new program library, an EVICT 
is performed on the file. Refer to the NOS Reference 
Manual, volume 1, for a description of the EVICT 
operation. 

A program library consists of a record for each 
deck on the library. The last deck record is followed 
by a record containing the library directory. The 
contents of the new program library is determined 
by EDIT directives and the control statement options. 
Only edited decks are written on the new program 
library. 



Modification Table Format: 



i-i 
i 



modnum*2 



fltOdAOM f 



~M 



M 



2' 



DECK RECORDS 

Each deck record consists of a prefix table, a 
modification table, and text. 



Prefix Table Format: 





59 




47 




33 


17 


II 


ID Word 




TTOO 


| 


16 


1 







1 








decks 




1 


reserved 


2 


creation dolt 


3 


lo*l modir'icatlM dot* 


• 
• 
• 










ZWM 






isa 


| char Ml 



Word Bits Field 



ID 



16 8 



59-48 Table 
type 

47-36 wc 
35-00 none 

59-18 deckname 



17-00 none 



59-00 



59-00 



creation 
date 



latest 
modifica- 
tion 
date 



11-00 char set 



Description 

Identifies table as pre- 
fix table. 

Word count; length of 
table is 16g words. 

Reserved for future 
system use. 

Name of deck obtained 
for source deck identi- 
fication line; 1 to 7 
characters. 

Reserved for future 
system use. 

Date that deck was 
created. 

Format of date is: 

yy/mm/dd. 

Date of most recent 
entry in modification 
table. Format of the 
date is the same as for 
creation date. 

Identifies character set 
used to create this deck. 



0000 



8 



UUD*kp 



6 3 -character 
set 

64 -character 
set 



Word Bits Field 

ID 59-48 Table 

type 



Description 

Identifies table as modifi- 
cation table. The least 
significant digit indicates 
whether the deck is com- 
mon or not as follows: 



47-12 none 
11-00 f 

wordi 59-18 modnamei 



16 



n 



Deck is not common 
Deck is common 



Reserved for future sys- 
tem use. 

Number of modification 
names in table. 

1- to 7 -character modifi- 
cation set name. Each 
modification to a deck 
causes a new entry in 
this table. 

YANK flag 

Modifier not yanked 

1 Modifier yanked 



Text Format: 

Text is an indefinite number of words that contain a 
modification history and the compressed image of 
each line in the deck. Text for each line is in the 
following format. 



59 


a 




» 


17 







aj wc 


ttQ-M. 


nhbi 


NtR»2 


m 


.M>, 


«M>4 


nMg 


* • * 


coaprtMad twrl 



Bits Field 

59 a 

58-54 wc 

53-36 seq. no. 



Description 

Activity bit: 

Line is inactive 

1 Line is active 

Number of words of com- 
pressed text. 

Sequence number of line 
(octal) according to position 
in deck or modification set. 
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Bits 



Field 



35-18 


mhb. 


and 




subse- 




quent 




18 -bit 




bytes 





Description 

Modification history byte. 
Modify creates a byte for each 
modification set that changes 
the status of the line. Modifi- 
cation history bytes continue 
to a zero byte. Since this 
zero byte could be the first 
byte of a word and the com- 
pressed line image begins a 
new word, the modification 
history portion of the text 
could terminate with a zero 
word. The format of mhbi 



Prefix Table Format: 





59 




47 


35 




IT 







10 WordO 




T7D0 


1 


,e | 











1 












1 


r*s«r*a« 




2 


dolt 


3 
• 
• 
« 


I trot 



■E 



name A Modify-generated directory has 
the name OPL. However, if the 
name of the directory is changed 
(by LIBEDIT, for example), that 
name is retained on new program 
libraries then generated. 



a Activate bit 

Modification set 
deactivated the 
line 

1 Modification set 
activated the line 

mod. Index to the entry in 
no. the modification table 

that contains the 
name of the modifi- 
cation set that chang- 
es the line status. 
A modification number 
of zero indicates the 
deck name. 

com- The compressed image of the 

pressed line is display code. One or 

text two spaces are each repre- 

sented by 55g; they are not 
compressed. Three or more 
embedded spaces are replaced 
in the image as follows: 

3 spaces replaced by 0002 

4 spaces replaced by 0003 



64 spaces replaced by 0077s 

65 spaces replaced by 
007755s 

66 spaces replaced by 
00770001 8 

67 spaces replaced by 
00770002s, etc. 

Trailing spaces are not con- 
sidered as embedded and are 
not included in the line image. 
On a 64-character set program 
library or compressed compile 
file, a 00 character (colon) is 
represented as a 0001 byte. A 
12-bit zero byte marks the end 
of the line. 



DIRECTORY RECORD 

The library file directory contains a prefix table 
followed by a table containing a two-word entry for 
each deck in the library. Directory entries are 
in the same sequence as the decks on the library. 



Directory Table Format: 





59 




47 






29 




IT 





ID Word 




T000 


I 











I 


1 


dtetaMnt) 


<i*i 


2 













| 


random oodf •*• | 




S 










dtCMMMg 




I <«»2 




4 













I 


random tddnjttg 




sT 










• 
• 
• 






i-i 










dtekMMi/2 




I *"tn 




t 













| 


rotdow addrttt{/2 





Word Bits Field 



Description 



ID 



1.3. 

• • • » 

t -1 



59-48 



Table type Identifies table as pro- 
gram library directory. 



17-00 t 



Directory length ex- 
cluding ID word. 



59-18 



17-00 



deckname. Name of program Library 
deck; 1 to 7 characters 
left-justified. 



type l 



Type of record. 

6 Old program li- 
brary deck (OPL) 

7 Old program li- 
brary common 
deck (OPLC) 

10 Old program li- 
brary directory 
(OPLD) 



I note! 

Other record types are defined but are 
ignored by Modify (refer to the NOS 
Reference Manual, volume 1, for a com- 
plete description of record types). 



2,4, 29-00 random 
. . . , t address. 



Address of deck rela- 
tive to beginning of file. 
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DIRECTIVES FILE 



Compressed Compile File (A -Mode) Format: 



The directives file contains the Modify directives 
record. This record consists of initialization, file 
manipulation, and modification directives, and any 
source lines (including compile directives) to be 
inserted into the program library decks. An option 
on the Modify control statement designates the file 
from which Modify reads directives. Normally, 
the directives file is the job INPUT file. READ and 
READ PL directives cause Modify to stop reading 
directives from the directives file named on the 
Modify statement and to begin reading from some 
other file containing directives or insertion lines. 



COMPILE FILE 

The compile file is the primary form of output for 
Modify. It can be suppressed by the user as a 
Modify control statement option, when no compila- 
tion or assembly follows the modification. 



If a compile file is specified on the Modify control 
statement. Modify writes the edited programs on it 
in a format acceptable as source input to an assem- 
bler, compiler, or other data processor. Through 
control statement parameters and directives, a 
user can specify whether the text on the file is to 
be compressed or expanded, sequenced or unse- 
quenced. If the text is expanded, the user can also 
specify the width of each line of text preceding the 
seauence information. 



Expanded compile file format for each line consists 
of x columns of the expanded line (where x is the 
width requested), followed by 14 columns of se- 
quence information, if sequencing information is 
requested, and terminated by a zero byte. An 
end-of-record terminates the decks written on the 
compile file. 



wort 




7700 


0016 


j chor Ml j 





I 








modnoin«| 


[ m«. no. , 


2 


ccmprtuod Hm i 


i 






* 
» 
• 


: 










■KOdMMtii 


j M«.M>. a 




comorttotd Mm* 



char set 



seq. no. 



compressed 
line 



Character set of record. 
00008 signifies 6 3 -character 
set. 0064g signifies 64 -char- 
acter set. 

Sequence number of the line 
relative to the modification 
set identified by modname. 

A line in compressed form. 
Refer to the compressed text 
description for text formats 
of deck records. 



SCRATCH FILES 

Modify uses scratch files in three situations. 

Scratch File 1 Used when common decks are 



(SCR1) 



scratcn Fue z 
(SCR 2) 

Scratch File 3 
(SCR3) 



modified and no new program 
library is requested. 

Used when insertions overflow 
memory. 

Used when a CREATE or 
COPYPL directive is processed. 
This file is in program library 

format. 



These files are returned by Modify at the end of the 
Modify run. 
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BATCH JOB EXAMPLES 



10 



CREATE PROGRAM LIBRARY 
EXAMPLE 1 

This example illustrates how Modify can be used to construct a file in program library format from 
source decks. This example contains only one source deck (PROG) consisting of a FORTRAN pro- 
gram. The deck is terminated by an end-of-file card. The next record on INPUT contains the 
directives. It is the user's responsibility to save the newly created program library (TAPE) for use 
in future Modify runs. 

Unless C=0 is specified, a compile file is generated. This example shows the compile file (COMPILE) 
being used as input to the compiler. The compiler places the compiled program on LGO; the LGO 
card calls for loading and execution of the compiled program. 

COPYBFtfNPUT. SOURCE) 
MODIFY(P=0, N=TAPE. F) 
FTN(I=COMPILE) 



LGO. 

7/6/9 
PROG 



: File related cards 



(SOURCE DECK) 



6/7/9 

*REWIND SOURCE 

*CREATE SOTIRCE ' 

6/7/8/9 



•Directives Input 



EXAMPLE 2 

This example illustrates creation of a library from source decks on a source file other than INPUT. 
After the library has been created, it can be modified, edited, and written on a compile file for use 
by an assembler or compiler. 



Contents of File SALLY: 
RON 

(SOURCE DECK FOR RON) 



Job Deck: 
(JOB CARD) 

• « 



File related 
' cards 



MODIFY(N. F, P=0) 



*CALL TOM 

*IFCALL REQ.JACK 

7/8/9 

TOM 

COMMON 



(SOURCE DECK FOR TOM) 



7/8/9 
JACK 
COMMON 



(SOURCE DECK FOR JACK) 



7/6/9 

*REWIND SALLY 

*CREATE SALLY 



*DEFINE REQ 



' Directives Input 



7/8/9 



6/7/8/9 
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MODIFY PROGRAM LIBRARY 



EXAMPLE 1 



In this example, Modify uses all default parameters. The sequencing information shown for inserted 
cards is assigned during modification. 




MODIFY 



File related cards 



7/8/9 

*IDENT MOD10 

*DECK BOTTLE 

*/ *****MODIFICATIONS 

*D 10 

*D 4 • 

(CARD TO BE INSERTED IS ASSIGNED MOD10. 1) 

*D 20 22 

(CARDS TO* BE INSERTED ARE ASSIGNED MOD10. 2 THROUGH MOD10.4) 

I MOD9. 30 

(CARD TO BE INSERTED IS ASSIGNED MOD10. 5) 

*EDIT BOTTLE 

6/7/8/9 



Modification 
set MOD10 



EXAMPLE 2 

This job modifies deck EDNA for replacement on the program library. No compile file is produced. 



MODIFY(N, C=0) 



rFile related cards 



7/8/9 

*IDENT A2 

*DECK EDNA 

*MODNAME Al 

*/ *****MODIFICATIONS 

*D 30 

TAG RJ 

*MODNAME EDNA 
*I 7011 

ERR SA1 

ZR 

PRINT 

EQ 
*D 7644, 7650 
*EDIT EDNA 

fi/7/fl/n 



CHECK 



LIST1 

XI, ABORT 

(0*** ERROR 131 

ABORT 



Modification set A2 



Delete card A1.30 
Insert card A2. 1 



Insert cards A2. 2 through A2. 5 
after EDNA. 7011 



Delete cards EDNA. 7644 through 
EDNA. 7650 
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MOVE TEXT 

EXAMPLE 1 

The job illustrated below calls Modify twice. On the first call. Modify deactivates all but cards 32 
through 54 and writes the source for these cards on source file FRANK. On the second call. Modify 
deletes the remainder of the cards and reinserts the saved cards at the beginning of KEN. 



MODIFY(S=FRANK, C=0) 
MODIFY(N, C=CAL) 



; File related cards 



7/8/9 

*IDENT MOV1 

*DECK KEN 

*D 1,31 

*D 55,63 

*EDIT KEN 

7/8/9 

*IDENT MOV2 

*REWIND FRANK 

*DECK KEN 

*D 32,54 

*I 

*READ FRANK, KEN 

*EDIT KEN 

6/7/8/9 



Modification set MOV1 

Delete cards before card KEN. 32 
Delete cards KEN. 55 through KEN. 63 
Transfer remaining cards (KEN. 32 through 

KEN. 54) to source file FRANK 
Modification set MOV2 



Delete remainder of cards in KEN 
Insert cards at beginning of KEN 
Read insertion text from deck KEN on file 
FRANK 



EXAMPLE 2 

This job moves text cards from one deck to another. On the first call to Modify, cards 32 through 
54 of deck KEN on file OPL are saved on source file FRANK= On the second call; the saved cards 
are inserted into deck WILL. 



MODIFY{S= FRANK, C=0) 
MODIFY(N, C=MEL) 



:File related cards 



*IDENT 


Fl 


*DECK 


KEN 


*D 


1,31 


*D 


55,63 


*EDIT 


KEN 


7/8/9 




*REWIND FRANK 


*IDENT 


F2 


*DECK 


WILL 


*I 


25 


*READ 


FRANK, KEN 


*EDIT 


WILL 


6/7/8/9 





Modification set Fl 

Delete cards KEN. 1 through KEN. 31 
Save cards KEN. 32 through KEN. 54 on source 
file FRANK 



Insert text after card WILL. 25 

Insertion text taken from deck KEN on file FRANK 

Deck WILL is written on NPL and compile file MEL 
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READ DIRECTIVES FROM AN ALTERNATE FILE 

This job illustrates how the READ directive can be used to change the source of directives and correction 
text from the orimarv input file (in this case INPUT) to some other file. 



:*- 



MODIFY. 

COMPASS(I=COMPILE) 

LGO. 

7/8/9 

*IDENT JAN 

*READ DIR- 

*DECK C 



•File related cards 




Read contents of DIR 
*DECK A 



*DECK B 



6/7/8/9 



Corrections for A 



Corrections for B 



Return to INPUT fUe 



YANK AND UNYANK MODIFICATION SETS 

This example illustrates a job that logically removes all of the modification sets applied to program 
library LIB from the modification set named JULY and on. The change is not incorporated into the 
library; it is for the benefit of this run only. 



■ File related cards 



MODIFY (P=LIB, F) 

COMPASS(I=COMPILE) 

LGO. 

7/8/9 

*IDENT NEGATE 

*DECK MASTER 

*YANK JULY, * 

6/7/8/9 



To incorporate the preceding change on a new program library, add the N parameter to the Modify 
statement. 

The effects of a YANK can be nullified in future runs and, consequently, the effects of the yanked 
modification sets can be restored through the UNYANK directive. Such a modification might appear 



*IDENT RESTORE 
*DECK MASTER 
*UNYANK JULY, * 
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PURGE DECKS 

Decks BAD, WORSE, and WORST are no longer needed. The following job removes them from the library. 
They could also be removed through a selective edit using EDIT directives. In either case, the removal is 
permanent. 




MODIFY(N, C=0, F) 



File related cards 



7/8/9 

*PURDECK BAD, WORSE. WORST 

6/7/8/9 



CHANGE THE DIRECTIVES PREFIX CHARACTER 

EXAMPLE 1 

This example illustrates how to maintain directives input on a library. Because * is the prefix used 
on the library, a different prefix is required when modifying the library. In this case, / becomes the 
prefix character. 

ATTACH(OPL) 

GET(FIX) 

MODIFY(P=FIX. C=Z. N=FIX2) 

REWIND(Z) 

COPYSBF(Z, OUTPUT) 

REWIND(Z) 

MODIFY(I=Z) 

COMPASSd, S, B=LT01) 



7/8/9 






*PREFDC 


/ 




/WIDTH 


58 




/IDENT 


Fl 




/DECK 


CORR 




/I 


873 




*I 


1007 






LDC 


7777B 




STM 


STMA+1 


/D 


880 




/EDIT 


CORR 




6/7/8/9 







The contents of deck CORR on compile file Z are as follows: 



*IDENT 
*DECK 

*I 


NIX 

GRM1TD 
MHD2. 19 




CORR 
CORR 
CORR 


1 
2 
3 




*D 

*I 


997,1000 
1007 
LDC 

STM 


7777B 

STMA+1 


CORR 

Fl 
Fl 
Fl 


873 

1 
2 
3 


\ Inserted cards 




LJM 
980,984 


STM 


CORR 
CORR 


879. 


Instructioi 


*D 


881' 


has been d 



After file Z is produced, the deck GRM1TD is modified by the contents of Z. The resulting compile 
file (COMPILE) contains COMPASS language PPU code and is assembled using COMPASS. 
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The job produces a new program library (FK2) which replaces FIX so that the changes to deck 
CORR are saved. 

The resulting COMPASS listing would appear as follows: 

Corrections Contents of 

on File Z COMPILE 

: (Correction IDs) (Deck IDs) 

STD SM GRM1TD 1007 

LOC 7777B Fl 2 NIX 11 

STM STMA+1 Fl 3 NIX 12 



Since the comments go through the correction identification, the INWIDTH directive must be deleted 
if a new program library is generated. However, for maintenance, there is an advantage of seeing 
the correction identifiers with the deck identifiers. 



EXAMPLE 2 



This example illustrates changing the compile file prefix character so that when Modify produces the 
compile file, it recognizes only directives using the specified prefix. The directives prefix, in this 
case, is unaltered. 



ATTACH(OPL) 

MODIFY. 

COM PASSU, S, B) 

7/8/9 

*IDENT TEST1 

*DECK TEST 

*PREFIXC / 

*EDIT TEST 

6/7/8/9 



Deck TEST contains the following: 



LDM TCLT 
STD CM 



*CALL PPC 
/CALL PPCA 

Modify ignores the common deck call to PPC. COMPASS interprets it as a comment card. Modify 
acts on the common deck call to PPCA and replaces the /CALL directive with a copy of common 
deck PPCA. 
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USE OF THE Z PARAMETER 

EXAMPLE 1 

Suppose you want to create a compile file using an alternate OPL. The following deck illustrates 
this technique. 



MODIF Y{Z > / *OPLFILE. OPLZ / *EDIT, DECK1 



6/7/8/9 

EXAMPLE 2 

Another use of Z might be to request editing of specific decks; 



MODIFY<Z>/*EDIT. DECKl. DECK2 
6/7/6/9 
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SAMPLE FORTRAN PROGRAM 

This set of Modify examples illustrates how Modify can be used for maintaining a FORTRAN Extended program 

•__ 111 £ 1. rfl T7i/~\T> rrTi A TVT n-^nn-KAivi *-. n 1 rti* 1 n *• n r* +K n ** -n ar\ r\f r> tT>Iflnrt1o fl-H-iTVI f V» Q K^CQ QTlH J-iairrllf 

III |Jl'i;gl~cllli lLUlctiy 4U1 Xlldl. 1UC rvnilliill pfugiaiii i_eu.*-^A«n-t3 mv u^^u "^ " n *.u.i i& ..v- .. .j.n m^ k'mw>* «..— »*w to ..v 

read from the words in the data record. 

EXAMPLE 1 

The following job places the FORTRAN program and subroutine as a single deck (ONE) on the new 
program library (NPL) and on the compile file (COMPILE). Following Modify execution, FORTRAN 
is called to compile the program. The LGO card calls for execution of the compiled program. This 
program does not execute because of an error in the SUBROUTINE statement. The name of the 
subroutine should be MSG, not MSA. 



COPYBFONPUT, S) 
MODIFY(P=0, N, F) 
FTN(I=COMPILE) 
LGO. 



:File related cards 



7/8/9 
ONE<- 



END OF RECORD 



-Deck name 



PROGRAM ONE (INPUT, OUTPUT, TAPED 

PRINT 5 
5 FORMAT (1H1) 

10 READ 100, BASE, HEIGHT, I 

100 FORMAT(2F10.2, II) 

IF (I.GT.0) GO TO 120 

IF (BASE.LE.0) GO TO 105 

IF (HEIGHT. LE. 0) GO TO 105 

GO TO 106 

105 CALL MSG 

106 AREA = . 5*BASE*HEIGHT 
PRINT 110, BASE, HEIGHT, AREA 

110 FORMAT*///,* BASE=*F20. 5, * HEIGHT= 
IF18.5, /,* AREA = *F20. 5) 

WRITE (1) AREA 

GO TO 10 
120 STOP 

END 

SUBROUTINE MSA- 

PRINT 400 
400 FORMAT (III, * FOLLOWING INPUT DATA NEGATIVE OR ZERO *) 

RETURN 

END 

6/7/9 END OF FILE< — — — — End of source deck 

*REWIND S 

-CREATE S 

7/8/9 END OF RECORD 



(Should be 
SUBROUTINE MSG 



Directives input 



200.24 
300.24 
400.00 
326. 32 
500.00 
000.00 
700.43 
100.00 
050.00 
150.00 



500.76 
600.76 
700.00 
425. 36 
600.00 
150.00 
800.00 
300.00 
100.00 
200.00 



Data record 



6/7/8/9 END OF INFORMATION 



1.0-8 
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EXAMPLE 2 

Examination of Modify output from the creation job reveals that the erroneous SUBROUTINE state- 
ment has card identifier ONE. 20. The following job corrects the error and generates a new program 
library. 



MODIFY(N, F) 

FTN(I=COMPlLE) 

LGO. 

7/8/9 END OF RECORD 

*IDENT MODI 

*DECK ONE 

*DELETE 20 

SUBROUTINE MSG <- 

7/8/9 

200.24 500.76 

300.24 600.76 



Af\n nn 


TQQ QQ 


326.32 


425! 36 


500.00 


600.00 


000. 00 


150.00 


700.43 


800.00 


100. 00 


300.00 


050. 00 


100.00 


150.00 


200.00 



• Identified as MODI. 1 on NPL 



Data record 



6/7/8/9 END OF INFORMATION 
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EXAMPLE 3 

This job uses the same input as the first job but divides the program into two decks: ONE and IvlSG. 

t-> i. mon ;„ „ ™™„v, A an \r a ritT Twsr: rtir<.<>Hvp is inserted into deck ONE to ensure that MSG 

is written on the compile file whenever deck ONE is edited. 



COPYBF(INPUT, S) 
MODIFY(P=0, N, F) 
FTNU= COMPILE) 
LGO. 

; < File related cards 

7/8/9 END OF RECORD 

ONE 

PROGRAM ONE (INPUT, OUTPUT, TAPED 

PRINT 5 
5 FORMAT (1H1) 

10 READ 100, BASE, HEIGHT, I 

100 FORMAT(2F10.2, II) 

IF (I.GT.0) GO TO 120 

IF (BASE. LE. 0) GO TO 105 

IF (HEIGHT. LE. 0) GO TO 105 

GO TO 106 

105 CALL MSG 

106 AREA = . 5*BASE*HEIGHT 
PRINT 110, BASE, HEIGHT, AREA 

110 FORMAT (///,* BASE=*F20. 5, * HEIGHT** 
IF18.5, /,* AREA=*F20.5) 

WRITE (1) AREA 

GO TO 10 
120 STOP 

END 
*CALL MSG < ■ . __ Replaced by common deck MSG 

"7/Q/O F»*Njr* r\t? DFf*ABn nn pnmnile fU*> 

MSG 
COMMON 

SUBROUTINE MSG 

PRINT 400 
400 FORMAT (///.* FOLLOWING INPUT DATA NEGATIVE OR ZERO *) 

RETURN 



END 








6/7/9 END OF FILE 




*REWIND S 






*CREATE S 






7/8/9 END OF RECORD 




200. 24 


500. 76 






300. 24 


600. 76 






400.00 


700. 00 






326.32 


425. 36 






500.00 


600.00 






000. 00 


150.00 




Data record 


700. 43 


800.00 






100.00 


300. 00 






050.00 


100. 00 






150.00 


200. 00 
1 

F IN FORMAT 






6/7/8/9 END O 


ION 
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EXAMPLE 4 

This example adds a deck to the library created in the previous example. With no new program 
library generated (N is omitted from Modify card), the addition is temporary. 



COPYBFUNPUT, S) 
MODIFY. 
FTN(I=COMPILE) 
LGO. 



:File related cards 



7/8/9 
TWO 



END OF RECORD 



PROGRAM TWOdNPUT, OUTPUT) 



Replaced by common deck MSG on 
compile file 



END 

*CALL MSG < • 

6/7/9 

^REWIND S 

*CREATE S 

*IDENT MOD2 

*DECK MSG 

*DELETE MSG. 3 

400 FORMAT (///,* FOLLOWING INPUT DATA POSITIVE *) 

*EDIT TWO 

7/8/9 

(DATA RECORD) 

6/7/8/9 
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STANDARD CHARACTER SET 





ASCII 




HOLLERITH 


EXTERNAL 


ASCII 






ASCII 




HOLLERITH 


EXTERNAL 


ASCII 




CDC 


GRAPHIC 


DISPLAY 


PUNCH 


BCD 


PUNCH 


ASCII 


CDC 


GRAPHIC 


DISPLAY 


PUNCH 


BCD 


PUNCH 


ASCII 


GRAPHIC 


SUBSET 


CODE 


(026) 


CODE 


(029) 


CODE 


GRAPHIC 


SUBSET 


CODE 


(026) 


CODE 


(029) 


CODE 


:t 


» 


oot 


6-2 


00 


8-2 


3A 


6 


6 


41 


6 


06 


6 


36 


A 


A 


01 


12-1 


61 


12-1 


41 


7 


7 


42 


7 


07 


7 


37 


B 


B 


02 


12-2 


62 


12-2 


42 


8 


8 


43 


8 


10 


8 


38 


C 


C 


03 


12-3 


63 


12-3 


43 


9 


9 


44 


9 


1 1 


9 


39 


D 


D 


04 


12-4 


64 


12-4 


44 


+ 


+ 


45 


12 


60 


12-8-6 


28 


E 


E 


OS 


12-5 


65 


12-5 


45 


- 


- 


46 


1 1 


40 


1 1 


20 


F 


F 


06 


12-6 


66 


12-6 


46 


ft 


X 


47 


11-8-4 


54 


11-8-4 


2A 


G 


G 


07 


12-7 


67 


12-7 


47 


1 


1 


SO 


0-1 


21 


0-1 


2F 


H 


H 


10 


12-8 


70 


12-8 


48 


( 


( 


SI 


0-8-4 


34 


12-8-5 


28 


1 


1 


II 


12-9 


71 


12-9 


49 


1 


] 


52 


12-8-4 


74 


11-8-5 


29 


<i 


J 


\Z 


ii-i 


4i 


ii-i 


4A 


$ 


i 


53 


I i -6-3 


55 


i i-6-5 


24 


K 


K 


13 


11-2 


42 


11-2 


4B 


» 


■ 


54 


8-3 


13 


8-6 


3D 


L 


L 


14 


11-3 


43 


11-3 


4C 


BLANK 


BLANK 


55 


NO PUNCH 


20 


NO PUNCH 


20 


M 


M 


15 


11-4 


44 


11-4 


40 


.COMMA) 


.(COMMA) 


56 


0-8-3 


33 


0-8-3 


2C 


N 


N 


16 


11-5 


45 


11-5 


4E 


.(PERIOD) 


.(PERIOD) 


57 


12-8-3 


73 


12-8-3 


2E 








17 


11-6 


46 


11-6 


4F 


m 


# 


60 


0-8-6 


36 


8-3 


23 


P 


P 


20 


1 1-7 


47 


M-7 


50 


C 


c 


61 


8-7 


17 


12-6-2 


5B 








21 


11-8 


50 


11-8 


51 


] 


J 


62 


0-8-2 


32 


II -8-2 


50 


R 


R 


22 


11-9 


51 


11-9 


52 


%tt 


% 


63 


8-6 


16 


0-8-4 


25 


s 


S 


23 


0-2 


22 


0-2 


53 


* 


"(QUOTE) 


64 


8-4 


14 


8-7 


22 


T 


T 


24 


0-3 


23 


0-3 


54 


— 


..(UNDERLINE) 


65 


0-8-S 


35 


0-8-5 


5F 


U 


U 


25 


0-4 


24 


0-4 


55 


V 


1 


66 


1 1-0 


52 


12-8-7 


21 


V 


V 


26 


0-5 


25 


0-5 


56 
















w 


w 


27 


0-6 


26 


0-6 


57 


A 


a 


67 


0-8-7 


37 


12 


26 


X 


X 


30 


0-7 


27 


0-7 


58 


f 


'(APOSTROPHE) 


70 


11-8-5 


55 


8-5 


27 


Y 


Y 


3! 


0-8 


30 


0-8 


59 


» 


? 


71 


11-8-6 


56 


0-8-7 


3F 


z 


,Z 


32 


0-9 


31 


0-9 


SA 


< 


< 


72 


12-0 


72 


12-8-4 


3C 








33 





i£ 





30 
















1 


1 


34 


I 


01 


i 


31 


> 


> 


73 


i 1-6-7 


57 


0-8-6 


3E 


2 


2 


35 


2 


02 


2 


32 


< 


& 


74 


8-5 


15 


8-4 


40 


3 


3 


36 


3 


03 


3 


33 


> 


\ 


75 


12-8-5 


75 


0-8-2 


SC 


4 


4 


37 


4 


04 


4 


34 


-i 


—(CIRCUMFLEX) 


76 


12-8-6 


76 


11-8-7 


5E 


5 


5 


40 


5 


05 


5 


35 


; (SEMICOLON) 


; (SEMICOLON) 


77 


12-8-7 


77 


11-8-6 


3B 














3AEI3/ 














3AESA 



t TWELVE OR MORE ZERO BITS AT THE END OF A 60-BIT WORO ARE 
INTERPRETED AS END-OF-UNE MARK RATHER THAN TWO COLONS. 
ENO-OF-LINE MARK IS CONVERTED TO EXTERNAL BCD 1632. 

H IN INSTALLATIONS USING THE CDC 63 -GRAPHIC SET, DISPLAY CODE 00 HAS 'JO ASSOCIATED 
GRAPHIC OR HOLLERITH CODE; DISPLAY CODE 63 IS THE COLON [8-2 PUNCH). THE 
SELECTION OF THE 63- OR 64-OHARAGTER SET FOR TAPES IS AN INSTALLATION OPTION. 
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OUTPUT LISTING AND MESSAGES 



B 



Depending on list options selected on the Modify 
control statement, list output for Modify contains 
the following. 

• Input directives 

• Status of each deck 

Modifiers are listed first, followed by a 
list of activated lines, deactivated lines, 
active lines, and inactive lines as they are 
encountered. To the left of each line are 
two flags, a status flag and an activity 
flag. The status fla^ can be I (Inactive) or 
A (active). The activity flag can be D 
(deleted) or A (activated). Following 
these lines are the unprocessed modifica- 
tions and errors, if any. The last line 
contains a count of active lines, inactive 
lines, and inserted lines. 



Statistics 

This includes lists of the following. 

Decks on program library 
Common decks on program library 
Decks added by initialization directives 
Decks on new program library 
Decks written on compile file - 

A replaced deck is enclosed by parentheses. 
Completing the statistics is a line contain- 
ing counts of the number of lines on the 
compile file and the amount of storage used 
during the Modify run. 

Errors 

Modify prints the line in error, if any, 
above the diagnostic message. Error 
messages other than those identified as 
fatal can be overridden through selection 
of the Modify statement D (debug) option. 
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MESSAGE 



SIGNIFICANCE 



ACTION 



ROUTINE 



CARD NOT REAChEC. 



COLUMN OUT OF RANGE. 



COFY FILE EMPTY. 



CKEATION FILE EfPTY. 



Sequence number cxcoeds deck rang*. 



Requested nldth exceeds maximum allowed 
(1001. 

No Information on program library being 
cooled. 



No source cecks on File being used for 
creation. 



Use correct sequence MODIFY 
number. 

Change width to 100 or MODIFY 
less. 

Verify that COPY file MODIFY 
exists and is Droperty 
positioned at 301. 

Verify that creation MODIFY 
file contains proper 
source decks. 



CV OPTION INVALID. 



CM ootion other than 63 or f><*. 



Specify 63 or 64 for 
conversion ootion. 



MODIFY, 
OPILEDIT 



DIRECTIVE ERRORS. 



OUPLICATE MODIFIER NAME. 



cfifiOR IN ARGUMENTS. 



ERROR IN DIRECTORY. 



ERROR IN MODIFY ARGUMENTS. 



FILfc NAME CONFLICT. 



FIHST CARO IS AFTER SECOND CARD. 



FORMAT ERROR IN DIRECTIVE. 



A format error has beer detected during 
processing of directives. Fatal error. 

Modifier or IDENT has been useo previously 
for the deck. 

An invalid parameter has been encountered on 
the OPLEOIT control statement. 

The orograir library contains an error. 
Fatal error. 



Illegal Parameter on Modify control 
statement. Fatal error. 

The save file cannot be used for both 
applications without conflict. Fatal 
error. 

Parameters are erroneous or I ines are out 
of order. 

A format error has !9eer detected in a 
directive. 



Consult listing for MODIFY, 

description of error. OPLEOIT 

Choose unique name for MODIFY 
deck. 

Correct control statement OPLEOIT 
and retry. 

Use COPY or C0PYPL to MODIFY, 

create new orograit OPLEDIT 
I ibrary. 

Consult manual for correct M3DIFY 
control statement syntax. 

Use different file name MJOIFY, 

for one of the OPLEDIT 
aopl ications. 

Verify that correct MODIFY 
line sequence is used. 

Consult manual for MODIFY, 

correct format. OPLEOIT 



o 



s 

in 

o 

o 

o 



MESSAGE 



ILLEGAL DIRECTIVE. 



ILLEGAL NUMERIC FIELD. 



INVALID ATTRIBUTE. 



-LC-ERROR. BUST BE ECTMHOSIA- 



M£CORY OVERFLCh. 



MIXED CHARACTER SET OPL. 



MCDISJ TO MOO etFORE THIS IDENT CARD. 



MODIFICATION ERfiCRS. 



MCCIFICATION/DIfiECTIVE ERRORS. 



NAKES SEPARATEO BV ».» IN HRONG ORDER. 



NC »IF IN PROGRESS. 



NO DIRECTIVES. 



OPERATION ILLEGAL FROM ALTERNATE INPUT. 



SIGNIFICANCE 



Directive Is out of seouence. For example* 
the CREATE directive is after a modification 
directive for Poalfy. 

Irvalid parameter on- Modify or OPLEOIT 
control statement. 

Attribute specified on IF directive Is 
other than EG. NE» OEF. or UNDEF. 

II legal list option reouested. Fatal 
error. 

Insufficient field length has been specllied 
for OPLEOIT to execute. 



CPLEOIT detected decks on the program library 
that are In different character sets <63 and 
6<t» for example). 



A modification directive or a different 
IDENT directive refer to the current 
modname. 

Modify has detected errors during the 
modification phase; fatal if option is 
not selected. 

Codification and/or directive errors are 
encountered when debug mode is selected* 



Requested decKs not in correct sequence. 

An ELSE or ENOIF directive was encountered 
without a previous IF directive. 

Directives file empty. Fatal error. 



File manipulation attempted from other than 
original directives file. 



ACTION ROUTINE 



Use correct sequence. MODIFY* 

OPLEOIT 



Verify control statement MOOIFY* 
parameters and retry. OPLEOIT 

Use correct attribute. MODIFY 



Specify either E. C» T, MODIFY 
M» H, 0, S. It or A for 
1 1st option. 

Increase field length OPLEOIT 
with RFL control 
statement and retry. 

Use Modify to recreate OPLEDIT 
erroneous decks under 
one character set and 
retry. 

Choose a different MODIFY 

modification name for 
the IOENT directive. 

Consult listing and MOOIFY 

correct specified 

errors. 

Consult listing and MODIFY 

correct specified 

errors. 

Determine correct sequence MODIFY* 
and retry. OPLEOIT 

Check for omitted IF MOOIFY 
directive or unnecessary 
ELSE OR ENOIF directive. 

Verify that directives MODIFY* 
file exists and Is OPLEOIT 

correctly positioned 

at 301. 

Move file manipulation MOOIFY 
directives to original 
directives file. 



a 



■ 



MESSAGE 



OPLEOIT COMPLETE. 



OPLEOIT ERRORS. 



SIGNIFICANCE 



Informative massage indicating that OPLEOIT 
has completed processing. 

Errors were encountered during OPLEOIT 
execution. 



ACTION 



None. 



Consult output listing 
tor description of 
errors. 



ROUTINE 
OPLEOIT 
OPLEOIT 



OVERLAPPING MODIFICATION. 



Line modified wore than once. 



Remove redundant I Ine 
modi f lcations. 



MOOIFY 



PL ERROR IN DECK decknaae. 



PROGRAM LIBRARY EMPTY. 



RECORD NOT FOUND. 



RECURSIVE *IF,S ILLEGAL. 



An error Mas detected in the program 
library format during processing of deck 
named. Fatal error. 

No information on file specified as 
program library. Fatal error. 



Modify Has unable t« locate requested 
record on flte specified. 



Ar IF directive Mas encountered while a 
previous IF range nas still active (no ELSE 
or ENOIF encountered) . Fatal error. 



Replace or recreate 
erroneous deck. 



Verify that program 
I ibrary file is 
available for Modify 
to manipulate. 

Verify that record 
exists on specified 
file. 

Check for missing ENDIF 
or ELSE directive or 
unnecessary IF 
directive. 



M03IFY, 
OPLEOIT 



MOOIFY, 

OPLEOIT 



MOOIFY 



MOOIFY 



REQUNOANT CONVERSION IGNORED.. 



An attempt Mas made to convert the program 
library file to a like character set (63 to 
63 or 6<* to bktm Conversion option set to 
zero. 



Verify conversion mode 
desired. 



MOOIFY 



RESERVEO FILE NAME. 



Operation attempted on a file name 
reserved by this utility. 



Choose a nonreserved 
file name. 



MOOIFY. 
EDIT, 

OPLEOIT 



S OPTION ILLEGAL HITH A* X, OR Q. 



Source option not legal when At x, or Q 
option is selected. Fatal error. 



Remove S option from 
control statement and 
specify on separate 
modification. 



MOOIFY 



TOC MANY OPL FILES. 



More than 20 program library files 
declared. 



Specify excess program 
libraries on subsequent 
Modify runs. 



MOOIFY 



o 
o 



0> 

o 



MESSAGE 



SIGNIFICANCE 



ACTION ROUflNe 



o 
o 



UtiKNOHN DECK. 



UNKNOHN MOOIFlEfi. 



VALUE ERROR. 



I CN ILLEGAL MTHOUT COMPILE. 



deckname - INVALID CSt bS ASSUMEO. 



d*chnam« - PIXEC CHARACTER SET DETECTED. 



livable to locate requested dec* op program 
I lorary. 

modifier not in nodif ieation table for 

d«CK. 

Value specified cto IF or DEFINE directive 
is greater than $t?T??ta, Fatal error. 

Selection of X or G optior requires that a 
compile file name be selected* 



The loner byte of eoro 169 of the prefix 
table for the rawed due* on the program 
library does not contain 0000 or 006".. 

Upon editing the named deck on the program 
library, the character set was different 
from the character set of previously edited 
oecHs. 



Verify that dec* name is fWOIFT 
correct. 

Determine correct NOOIFt 

modifier. 

Select value less than MOOIFV 
or equal to S1111111, 

Specify C option on nootFT 
Modify control statement 
(not c=oi. 

If 6%-character set is noolFt* 
desired, the deck must OPLtOIt 
be recreated. 

Recreate the deck under nootff 

the desired enaracter 

set. 



cd 



OPLEOIT UTILITY 



OPLEDIT is an NOS utility used in conjunction with 
Modify-formatted old program libraries (OPLs). 
The OPLEDIT routine is used to completely remove 
specified modification decks and modification iden- 
tifiers from an OPL. It can also be used to extract 
the contents of specified modification sets on an 
OPL fUe. 

The following are the OPLEDIT directives. 

*EDIT Edit deck 

*PULLALL Generate modification set 

*PULLMOD Reconstruct modification set 

*PURGE Remove modification set 

The format of OPLEDIT directives is essentially 
the same for Modify directives (refer to section 2). 
The main difference is that OPLEDIT does not 
allow the user to change the prefix character. 
Therefore, the asterisk (*) must be used. 



EDIT - EDIT SPECIFIED DECKS 

The EDIT directive requests OPLEDIT to edit a 
program library deck and transfer it to the new 
nrograni library^ The deck names specified nor- 
mally are the decks that contain the modification 
identifiers. 



Format: 

*EDIT pj, p 2 , 

P; 



A deck name or range of 
decknames in one of the 
following forms: 



PULLALL - GENERATE MODIFICATION 
it i 

The PULLALL directive allows the user to generate 
a modification set that contains the net effect of all 
current modification sets or all modification sets 
added after and including a specific modification set. 

Formats: 

*PULLALL 

*PULLALL modname 

modname First modset to be included; all 
modsets following modname are 
also included, provided modname 
appears in the edited deck. 

For the first format, OPLEDIT builds a directive file 
suitable for submission to Modify using the *READ 
Modify directive. The file (specified by the M param- 
eter on the OPLEDIT control statement) contains the 
net effect of all modifications currently applied to the 
program library. As such, all Modify IDENT direc- 
tives are deleted and replaced by an IDENT ******* 
at the beginning of the file. 



PULLMOD - RECONSTRUCT 
MODIFICATION SET 

With the PULLMOD directive, the user can reconstruct 
one or more modification sets applied to edited decks. 
The structure of the original modset is maintained; 
that is, Modify IDENT directives are not changed or 
deleted as in the PULLALL directive. 

Format: 



deckname a . deckname^ 

The first form edits a deck on 
the library; the second form 
requests a range of decks 
starting with deckname a and 
ending with decknameb. 

If the deck names are in the 
wrong sequence, OPLEDIT 
issues the error message: 

NAMES SEPARATED BY 
*. * IN WRONG ORDER. 

If OPLEDIT fails to find one 
of the decks, it issues the 
message: 

UNKNOWN DECK - deckname. 



'2" 

modname. Modification name" to be generated 
onto file specified by M param- 
eter on OPLEDIT control state- 
ment. 



PURGE - REMOVE MODIFICATION SET 



The PURGE directive enables the user to completely 
remove the effects of a previous modification set or 
group of modsets from decks written on the new pro- 
gram library. The modification identifiers are no 
longer maintained in the history bytes (refer to Text 
Format, section 9) of the new program library. 
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Formats: 



L=0 List no output. 



*PURGE modname 
* PURGE modname, * 

modname Modification set to be removed, 

* Indicates that the modset and all . 

subsequent modsets are to be re- 
moved, provided modname appears 
on the edited decks. 



Note that it is not possible to remove modsets implic- 
itly; that is, *PULLMOD A.B is illegal. Also, 
*PULLMOD A, * does not pull modset A and all 
modsets that follow (as on the *PURGE directive). 
Rather, it pulls modset A and modset *. 

Modification names requested are removed only 
from decks edited. Modsets generated by OPLEDIT 
are in a form suitable for use by Modify as follows: 

-READ, file, * 
*READ, file, ident 

That is, each modset is a separate record, with 
ident being the first line. The *PULLALL modset, 
if used, is the first record on the file. The file 
(specified by the M parameter) is returned before, 
and rewound after use. 



OPLEDIT CONTROL STATEMENT 

The control statement format is: 



n * _ i ru_ 



LO=x 



OPLEDIT(p 1 , p 2 , . . . , p n ) 



p. Any of the following in any order: 

I Use directive input from 

file INPUT. If the I 
option is omitted, file 
INPUT is assumed. 



1=0 
P 



P=lfn„ 



P=0 



Use directive input from 
file lfhj. 

Use no directive input. 

Use file OPL for the old 
program library. If the 
P option is omitted, file 
OPL is assumed. 

Use file lfti2 for the old 
program library. 



Use no old program 
library. 

N Write new program 

library on file NPL. 

N=lfn3 Write new program 
library on file Ifng. 

N=0 Write no new program 

library. If this option is 
omitted, N=0 is assumed. 

L List output on file 

OUTPUT. If the L option 
is omitted, file OUTPUT 
is assumed. 

L=lfn 4 List output on file lfn 4 . 



F 
D 

U 

u=o 



*PULLMOD and *PULLALL 
directives on file lfn 5 . If 
M is omitted, M= MODSETS 
is assumed. 

Set list options x; each bit 
in x, if set, turns on the 
corresponding option. 

001 Errors 



002 


Directives 


004 


All other input 
statements 


010 


Modifications 
made 


020 


Directives pro- 
cessed from the 
program library 


040 


Deck status 


100 


Directory lists 


200 


Inactive statements 


400 


Active statements 



If this option is omitted, 
x=177 is assumed (that is, 
the first seven options 
listed). 

Modify all decks; 

Debug; ignore errors. 

Generate *EDIT directives 
for ail decks. 

Generate no *EDIT direc- 
tives. If the U option is 
omitted, generate *EDIT 
directives for common 
decks. 

The OPLEDIT control 
statement contains the in- 
put directives following 
the terminator; the input 
file is not read. This 
eliminates the need to use 
a separate input file for 
the directives when only a 
few directives are needed. 
The first character f ol - 
lowing the control state- 
ment terminator is the 
separator character. If 
Z is omitted, the control 

the input directives. 



| NOTE 



Do not place an- 
other terminator 
after the 
directives. 



OPLEDIT EXAMPLES 

Figure C-l illustrates the four OPLEDIT directives. 
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batch, 45000 
SRFL, 45000. 
/get,mainpl 
/catalog ,mainpl , r 



REC 


CATALOG 
NAME 


OP MAINPL 
TYPE 


FILE 
LENGTH 


1 
CKSOM 


DATE 


1 


OECKl 
MODI 


OPL (64) 
MOD4 




61 


3171 


76/01/22. 


2 


OECK3 
MODI 


OPL (64) 
MOD4 




37 


2333 


76/01/21. 


3 


OBCC2 
HOOl 


OPL (64) 
MOD2 


HOD3 


60 


5455 
H004 


76/01/22. 


4 


OECK4 
MOD4 


OPL (64) 




47 


S063 


76/01/23. 


5 

€ 

7 


DECKS 
OPL 

* EOF * 


OPLC (64) 
OPLO 

SUM » 




27 
13 

311 


61S4 

3706 


76/01/23. 
76/01/23. 



CATALOG COMPLETE, 
/opledit ,p*mainpl ,m«mods , lo«l ,n-newpl 
? *purge tnod4,* 
7 *pulloiod mod 2, rood 3 
7 *pullall nodi 
7 *edit deckl.deck4 
? 

OPLEOET COMPLETE. 
/catalog ,ne«rpl , r 



REC 


CATALOG 
NAME 


OP MEWPL 
TYPE 


PILE 

LENGTH 


1 

CKSOM 


OATE 


1 


OECRl 
HOOl 


OPL (64) 




37 


7732 


76/01/22 


2 


DECR3 
MODI 


OPL (64) 




34 


3117 


76/01/21 


3 


OECK2 
MODI 


OPL (64) 
MO02 


NOD3 


55 


5026 


76/01/22 


4 
5 


OECK4 
OPL 


OPL (64) 
OPLD 




44 
11 


0216 
4076 


76/01/23 


6 
1 

CATALOG 
/primacy 
S PRIMARY, 


* EOF * 


Sun • 










COMPLETE 
,nods 
,MODS. 













Figure C-l. OPLEDIT Examples (Sheet 1 of 2) 
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/lnh,r 
******* 

* I DENT 
'DECK 

*D,1 

*** 

•1,2 



******* 



MAIN PROGRAM, DECK DECK1. 
COMMON JOT 



'1,3 



CALL SUB3 

IF (JOT. EQ. 3) PRINT*, "TIME-SHARING JOB. 
IP (JOT.NE. 3) PRINT*, "BATCH JOB." 
DECK3 



SUBROUTINE 2, DECK DECK3. 
DECK 2 



SUBROUTINE 1, DECK DECK 2. 

CALL SUBROUTINE SUB2 
IN DECK DECK 2. 



*DECK 
•1,6 

*WEOR 

*D,1 
*** 

•DECK 
•1,0 

•WEOR 

*D,1 

*** 

•1,3 

* 
* 

•1,7 

*** END DECK2. 

— EOR-- 

MOD2 

•I DENT MOD2 

•DECK DECK2 

•D, MODI. 3 

•RESTORE, 7 

— EOR — 

MOD3 

*IDENT MOD3 

•DECK DECK2 

•RESTORE, MODI. 3 

—EOR — 



PULLALL directive 



PULLMOD directive 



Figure C-l. OPLEDIT Examples (Sheet 2 of 2) 
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Backspace file 5-1 
Batch job examples 
BKSP directive 5-2 



10-1 



C option 8-1 
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CALL directive 6-1 

Call related common decks 6-2 

CALLALL directive 6-2 

CB option 8-1 

CG option 8-1 

Change prefix character 7-1; 10-5 

Character sets 9-4; A-l 

Character set conversion 8-1 

CL option 8-1 

COMMENT directive 6-2 

Comment line 6-2; 7-1 

Common deck 

call 6-1 

declaring 3-1 
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purpose 1-1 
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COMPASS binary output 8-1 
COMPASS COMMENT pseudo instruction 
COMPASS get text option 8-1 
COMPASS list option 8-1 
COMPASS system text option 8-1 
COMPILE file 8-1 
Compile file 

compressed format 1-1 

compressed mode 8-1 

contents 9-4 

directives 6-1 

end-of-file 6-3 

end-of-record 6-3 

line width 3-3; 6-2 

no rewind 8-2 

output 8-1 

sequencing 3-3; 6-3 

write phase 1-3 
Compressed compile file 8-1 
Compressed lines 1-1; 9-3, 4 
Conditional call common deck 6-1 
Conditional range 6-2 
Control statement 8-1 
Control statement input 8-3 
COPY directive 3-3 
Copy program library 3-2 
CO PYPL directive 3-2 
CREATE directive 3-2 
Create comment line 6-2 
Creation date 9-2 
Creation of program library 3-2; 10-1 



6-2 



D directive 4-2 
D option 8-1 
Deactivate line 4-2 
Dubug option 8-1 
Deck 

common 1-1; 3-1; 6-1 

edit 4-3 

identification 4-2 

ignore 4-3 

move 7-2 

purge 4-3 

records 9-2 

remove 4-3 

replace 3-2 
DECK directive 4-2 
Deck name 

duplicate 3-1 

identify 4-2 

location 3-1 

purpose 3-1 
Deck status B-l 
Declare OPL files 3-2 
DEFINE directive 7-1 
Define IF name 7-1 
Define IF value 7-1 
Define IFCALL name 7-1 
Define NIFCALL name 7-1 
DELETE directive 4-2 
Delete lines 4-2 
Directive 

format 2-1 

input 8-2 

prefix character 2-1; 7-1 

separator 2-1 
Directives 

alternate file 5-1 

compile file 6-1 

file 9-4 

file manipulation 5-1 

initialization 3-1 

Modify input 8-2 

modification 4-1 

on program library 5-1 

special 7-1 
Directory 

library 1-2; 9-3 

record 9-3 

table 9-3 



Edit deck 

full edit 4-3 
OPLEDIT C-l 
selective edit 4-3 
UPDATE edit 4-3 
EDIT directive 4-3 
EDIT (OPLEDIT) directive 
ELSE directive 6-2 
End conditional range 6-2 
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End-of-file 6-3 
End-of -record 6-3 
End-of-record, conditional 6-3 
END IF directive 6-2 
Error messages B-2 
EVICT of NPL 8-2 
Execute COMPASS 8-2 
Execute program 8-2 
Execution of Modify 1-3 



F option 4-4; 8-1 

Features of Modify 1-3 

File formats 9-1 

File manipulation directives 5-1 

File positioning 5-2 

File, return 5-2 

File, rewind 5-2 

Files 

compile 8-1; 9-4 

COMPILE 8-1 

directives 1-1; 8-2 

list output 8-2 

NPL 8-2 

OPL 8-2; 9-1 

program library 1-1; 8-2; 9-1 

reserved 5-1 

scratch 5-1; 9-4 

source '3-1; 8-2; 9-1 

SOURCE 8-2 

used to initialize program library 
Format of directive 2-1 
Full edit mode 4-4; 8-1 



Generate modification set C-l 



Messages, error 
Modification date 



B-2 

9-2 



1-1 



History byte 9-3 
History of modifications 



4-2 



9-3 



I directive 
I option 8-2 
IDENT directive 4-1 
Identify modification set 4-1, 2 
IF, .define value for 7-1 
IF directive 6-2 
IFCALL directive 6-1 
Ignore deck modifications 4-3 
IGNORE directive 4-3 
Inactive line 9-2 
Initialization directives 3-1 
Initialize program library phase 
Input directives file 1-1; 8-2 
Input oh control statement 8-3 
Input text width 7-1 
INSERT directive 4-2 
Insert lines 4-2 
INWIDTH directive 7-1 



L option 8-2 

Line deactivation 4-2 

Line identification 2-1; 4-2 

Line insertion 4-2 

Line reactivation 4-2 

Line width 3-3; 6-2 

List comment 7-1 

List options 8-2 

List output file 8-2; B-l 

LO options 8-2 



1-3 



iVioaiiicaxion airecavets -j-j. 
Modification history byte 9-3 
Modification name 4-1 
Modification table 9-2 
Modification set 

deactivate 4-3 

generate C-l 

identifier 1-3; 4-1 

name 1-3; 4-1 

reconstruct C-l 

remove C-l 
Modify 

batch examples 10-1 

batch processing example 1-4 

comments 7-1 

control statement 8-1 

error messages B-2 

examples, general description 1-3, 4 

execution 1 -3 

file formats 9-1 

general description 1-1 

listing B-l 

organization 1-1, 2 

output files 1-2 

time-sharing processing example 1-4 
Modify program library example 10-2 
MODNAME directive 4-2 
Move decks 7-2 
MOVE directive 7-2 
Move text 10-3 



N option 8-2 
Name 

deck 3-1; 4-2 

default 3-1; 4-2 

define 7-1 

modification 4-1 
New. program library file 
NIFCALL directive 6-1 
No rewind of compile file 
No sequence flag 3-3; 6-3 
No sequence information 3-3; 6-3 
NOSEQ directive 3-3; 6-3 
NPL file 8-2 
NR option 8-2 



8-2 
8-2 



Old program library file 8-2; 9-1 
OPL file 8-2; 9-1 
OPLEDIT control statement C-2 
OPLEDIT error messages B-2 
OPLEDIT utility C-l 
OPLFILE directive 3-2 
Organization 1-1, 2 
OUTPUT file 8-2 

P option 8-2 
PREFK directive 7-1 
Prefix character 2-1; 7-1; 10-5 
Prefix table 9-2, 3 
PREFKC directive 7-1 
Preparing source file 3-1 
Program library 1-1 

containing directives 5-1 

creation 3-2 

file 8-2; 9-1 
PULLALL (OPLEDIT) directive C- 
PULLMOD (OPLEDIT) directive C- 
Purge decks 4-3; 10-5 
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PURGE (OPLEDIT) directive C-l 
PURDECK directive 4-3 



Q option 8-2 



Random address 9-3 

Range, conditional 6-2 

Reactivate lines 4-2 

Read alternate directive file 5-1; 10-4 

READ directive 5-1 

READPL directive 5-1 

Read directives from program library 5-1 

Read modification directives phase 1-3 

Reconstruct modification set C-l 

Record type 9-3 

Remove deck 4-3 

Remove modification set C-l 

Reorder decks 7-2 

Replace decks 3 -2 

Reposition file 5-2 

Rescind YANK directive 4-3 

Reserved file names 5-1 

RESTORE directive 4-2 

RETURN directive 5-2 

Return file 5-2 

Reverse conditional range 6-2 

REWIND directive 5-2 

Rewind file 5-2 



S option 8-2 

Sample FORTRAN program 10-8 
Scratch files 5-1; 9-4 
Selective edit mode 4-4 
Separators for directives 2-1 
SEQ directive 6-3 
Sequence file 6-3; 7-2 
Sequence number 9-4 
Sequencing 

disable 3-3; 6-3 

enable 6-3 

flag 3-3; 6-3 

SEQ directive 6-3 

update 7-2 
SKIP directive 5-2 
Skip forward on file 5-2 
Skip records 5-2 
SKIPR directive 5-2 
SOURCE file 8-2 



Source file 

compile file directives on 1-2 
generated by Modify 8-2; 9-1 
preparation- 3-1; 9-1 
Special directives 7-1 
Standard character set A-l 
Statistics B-l 
Status of deck B-l 
Systems text selection 8-1 



Terminate conditional range 6-2 
Test for conditional range 6-2 
Text format 9-2 

Time-sharing considerations 1-3. 
Type of record 9-3 



U option 4-4; 8-2 

UNYANK directive 4-3 

Unyank modification set 4-3; 10-4 

UPDATE directive 7-2 

Update edit mode 4-4; 8-2 

Update library 7-2* 



Value, define for IF 7-1 



WEOF directive 6-3 

WEOR directive 6-3 

WIDTH directive 3-3; 6-2 

Width of line 3-3; 6-2 

Write end-of-file 6-3 

Write end-of-record 6-3 

Write end-of-record, conditionally 

Write output files phase 1-3 
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X option 8-2 



YANK directive 4-3 

Yank modification set 4-3; 10-4 



Z option 8-3; 10-7 



/ (insert comment) 7-1 
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CONTRPL DATA CORPORATION 



MODIFY CONTROL STATEMENT PARAMETERS 

MODIFY(p r P 2 . ...,p n ) 

A Presence of A causes compressed compile file. 

C Compile file output; COMPILE if C or omitted. No compile file if C=0. Otherwise, output 

on file named (C=lfn). 

CB COMPASS binary output file; used with Q and X options only. Output on LGO if CB. No 

binary if CB=0. Otherwise, output on file named (CB=lfn). 

CG COMPASS get text option; used with Q and X options only. Systems text on SYSTEXT if CG. 

No systems text if CG=0. Defined by CS option if CG is omitted. Otherwise, systems text on 
file named (CG=lfn). 

CL COMPASS list output; used with Q and X options only. Short list if CL=0 or omitted. Output 

on file OUTPUT if CL. Otherwise, list output on file named (CL=ifn). 

CS COMPASS systems text; used with Q and X options only. Systems text on SYSTEXT overlay 

if omitted or CS. No systems text if CS=0; otherwise, systems text on file named (CS-lfn). 

CV Program library character set conversion. None if CV is omitted; 63 to 64 if CV=64; 64 to 

63 if CV=63. 

D Debug option. Directive error or fatal error causes job abort if D is omitted. No job abort 

for directive errors if D is used. 

F Full edit. If omitted, deck editing determined by U option or by EDIT directives. If F is 

specified, all decks are edited and written on compile file, new program library, and source 
file. 

I Directives input. If omitted, directives and corrections on INPUT. If 1=0 there is no input 

file. Otherwise, on named file (I=lfn). 

L List output. Omitted or L, listings on OUTPUT. L-lfn, output to named file. 

LO List options. Omitted or LO, options E, C, T, M, W, D, and S are selected. Otherwise, 

LO=Cj, C2» . . c n to a maximum of seven options (AECDIMST or W). 

N New program library. Omitted or N=0. No new library. N, output on NPL. N=lfn, output 

to named file, 

NR No rewind on compile file. Omitted, compile file rewound before and after MODIFY run. 

RN, no rewinding. 

P Program library input. Omitted or P, library on OPL. P=lfn, library on named file. P=0, 

no program library input file. 

Q Execute assembler or compiler; no rewind of directives file or list output file. Omitted or Q = 0, 

assembler or compiler not automatically called. Q, Modify sets A parameter and LO = E and calls 
COMPASS. This option enables CB, CG, CL, and CS options. If Q=lfn, Modify calls assembler 
on lfn. 

S Source output (illegal if A, Q, or X selected). Omitted or S=0, no source output. S, output 

on SOURCE. S=lfn, output on named file. 

U Update edit. Omitted, editing set by F or by EDIT directives. F takes precedence over U. 

If U, only decks changed (named on DECK directives) are edited and written on compile file, 
new program library, and source file. 

X Execute assembler or compiler; same as Q except directives file and list output file are rewound. 

Z Directives on Modify card. Omitted, directives are next record on INPUT or identified by 

one option. Z, directives follow parameters on Modify. A separator bar separates two 
directives. 



